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20.  ABSTRACT  (Cont.) 

The  primary  objective  of  the  AGLS  Program  was  to  develop  a  test  bed  to  evaluate,  on 
an  incremental  basis,  various  options  for  automation  at  the  battery  level.  The 
system  being  developed  would  automate  all  of  the  on-carriage  weapon  positioning  and 
fire  control  operations,  while  retaining  insofar  as  practical,  the  existing  weapon 
control  and  fire  control  equipment,  and  keeping  the  gun  crew  operations  compatible 
with  currently  used  procedures. 

A  system  was  fabricated,  installed  in  an  M109A1,  and  tested  by  the  U.S.  Army  Field 
Artill  ry  Board  at  Ft.  Sill,  Oklahoma  over  the  period  20  March  through  26  April  1978 

A  contract  add-on  was  issued  on  9  September  1978  to  integrate  an  advanced  digital 
data  communication  system  into  AGLS.  This  system  was  designed  to  enhance  the 
communication  capabilities  of  the  AGLS  and  to  make  the  reconfigured  vehicle 
compatible  with  the  advanced  fire  direction  center  concepts  employed  for  HELBAT  VII. 
Additional  capability  in  the  form  of  an  improved  reference  unit  processor  and  inter¬ 
faces  to  a  projectile  velocimeter,  propellant  temperature  monitor  and  electronic 
fuze  setter  were  also  incorporated. 

The  system  was  designed,  fabricated  and  installed  in  the  AGLS  equipped  M109A1 
howitzer  and  designated  Howitzer  Test  Bed  I.  Field  testing  was  performed  by  the 
Army  during  HELBAT  VII  (20  February  1979  -  30  March  1979)  and  by  the  Human 
Engineering  Laboratory  at  Aberdeen  Proving  Ground  (30  July  1979  -  25  August  1979). 

No  data  from  these  tests  is  included  in  this  report;  it  was  retained  by  the  test 
agencies. 
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I.  INTRODUCTION 


Before  an  artillery  weapon  can  engage  a  target,  the  weapon  must  be  oriented  on 
the  correct  gun  position  so  that  the  artillery  pieces  can  aim  at  the  target.  The 
current  procedure  to  accomplish  this  is  called  "laying"  the  weapon.  It  requires 
considerable  time  and  manpower  and  reduces  the  responsiveness  of  the  weapon.  The 
advantage  of  mobility  inherent  in  the  howitzer  is  diminished  by  this  procedure 
and  a  new  method  to  enable  rapid  deployment  is  desirable. 

Current  procedures  for  laying  field  artillery  involve  verbal  transmission  of 
data  and  an  iterative  sequence  of  manual  procedures  involving  three  or  more  gun 
crew  members.  Previous  Human  Engineer  Laboratory  Battalion  Artillery  Tests 
(HELBAT)  have  shown  that  these  procedures  can  cause  gross  aiming  errors  due  to 
transposition  of  digits  and  can  cause  time  delays  because  these  operations  must 
be  performed  sequentially  rather  than  simultaneously. 

The  Gun  Alignment  and  Control  System  (GACS)  offers  one  remedy  to  these  problems; 
increasing  the  responsiveness  of  the  howitzer  by  orienting  all  weapons  on  the  gun 
position  within  seconds.  Error-free  displays  of  bearing  and  elevation  are  pro¬ 
vided  for  members  of  the  howitzer  crew.  The  problem  causing  concern  lies  in  the 
Fire  Orders  Data  Section  of  the  GACS,  which  consists  of  the  Conmand  Post  Unit 
(CPU)  and  the  Gun  Unit  (GU).  Hardware  breakdowns  of  these  components  have  caused 
catastrophic  system  failure.  The  unavailability  of  engineering  drawings  has 
required  that  the  components  be  returned  to  the  manufacturer  for  repair  for 
extended  time  periods  and  at  considerable  expense. 

To  obtain  more  data  on  the  benefits  of  automation.  Contract  DAAA09-76-C-2084  was 
issued  by  ARMCOM  (and  later  transferred  to  ARRADCOM)  to  design,  develop,  fabri¬ 
cate  and  install  one  prototype  Automated  Gun  Laying  System  (AGLS)  in  a  government 
furnished  M109A1  self-propelled  howitzer. 

The  primary  objective  of  the  AGLS  Program  was  to  develop  a  test  bed  to  evaluate, 
on  an  incremental  basis,  various  options  for  automation  at  the  battery  level. 


The  system  being  developed  would  automate  all  of  the  on-carriage  weapon  posi¬ 
tioning  and  fire  control  operations,  and  improve  weapon  system  effectiveness  by 
reducing  human  errors  and  overall  reaction  time. 

A  secondary  objective  was  to  retain,  insofar  as  practical,  the  existing  weapon 
control  and  fire  control  equipment,  and  to  keep  the  gun  crew  operations  compat¬ 
ible  with  currently  used  procedures.  This  would  retain  a  degree  of  commonality, 
thus  facilitating  the  tasks  of  crew  training  and  weapon  maintenance,  and  also 
enabling  direct  cost/benefit  comparisons  when  the  various  levels  of  automation 
are  tested. 

An  additional  task  was  added  to  the  original  workscope  for  the  Automated  Gun 
Laying  System  (AGLS)  program.  It  provided  for  the  replacement  of  several  com¬ 
ponents  of  the  GACS  which  had  become  unreliable  and  caused  system  failure.  The 
primary  goal  of  the  added  effort  was  to  substitute  components  which  would  be  more 
reliable  and  maintainable  than  the  existing  parts  by  providing  a  better  design, 
complete  with  accurate  engineering  drawings. 

Additional  interfaces  at  the  howitzer  and  FDC  were  fabricated  which  provided  both 
radio  and  wire  communication  links.  These  were  supplied  to  attain  system  compat¬ 
ibility  for  HELBAT  VII  testing.  This  howitzer  was  redesignated  the  Howitzer  Test 
Bed  #1. 


II.  SUMMARY 


The  Automated  Gun  Laying  System  developed  under  Contract  DAAA09-76-C-2084  is  a 
prototype  or  engineering  model  designed  specifically  to  the  requirements  of  a 
test  bed  system.  The  system  configuration  and  characteristics  were  specified 
through  a  series  of  meetings  and  design  reviews  with  the  contractor's  design 
personnel  and  the  Contracting  Officer's  Technical  Representatives  (COTR).  Fol¬ 
lowing  the  design  definition,  the  system  components  were  fabricated  and  in¬ 
stalled  in  the  M109  at  the  contractor's  facilities.  The  AGLS  program  consisted 
of  the  following  phases: 

1.  Design  Study 

A  detailed  design  study  was  conducted  to  establish  the  system  configuration, 
predict  performance  characteristics,  and  to  identify  major  error  sources.  This 
study  was  conducted  during  the  first  three  months  of  the  program.  During  this 
study,  the  system  originally  proposed  by  the  contractor  was  further  defined, 
utilizing  the  M109  component  information  provided  by  the  COTR.  Math  models  were 
developed  to  predict  system  performance  and  preliminary  mechanical  layout 
drawings  were  prepared  to  determine  mechanical  design  feasibility  of  the  pro¬ 
posed  system.  The  design  study  validated  the  proposed  method  of  leveling  the  M- 
15  quadrant  and  the  M-145  mount,  and  indicated  that  the  weapon  could  be  driven  by 
add-on  stabilization  system  (AOS)  hydraulic  components. 

The  study  was  also  directed  to  the  operating  characteristics  of  the  Gun  Alignment 
Control  System  (GACS),  which  had  been  proposed  as  the  method  of  obtaining  the 
azimuth  reference  for  the  AGLS.  The  COTR  provided  more  data  on  the  GACS  charac¬ 
teristics,  and  the  study  determined  that  the  GACS  was  suitable  as  the  azimuth 
reference  and  as  the  input  port  for  the  fire  control  commands.  However,  ques¬ 
tions  were  raised  as  to  the  light  power  output  of  the  GACS  reference  unit  XENON 
lamp,  and  the  ability  of  a  proposed  Charge  Coupled  Device  (CCD)  solid  state 
camera  to  detect  the  short  pulses.  Further  testing  when  the  GACS  reference  unit 
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was  delivered  confirmed  these  doubts,  and  eventually  led  to  the  development  of  an 
IR  tracker  using  a  lateral -effect  photodiode. 

During  the  design  study  on  the  Automatic  Gun  Laying  System  (AGLS)  program  (Con¬ 
tract  DAAA09-76-C-2084) ,  it  became  apparent  that  effort  beyond  the  scope  of  the 
original  AGLS  program  would  be  required  to  interface  with  the  Automated  FDC 
planned  for  use  on  HELBAT  VII.  This  effort  was  required  to  analyze,  design, 
fabricate  and  test  the  electronic  interfaces  between  the  Fire  Detection  Center 
(FOC)  POP-11/34  computer  and  the  AGLS  onboard  the  howitzer.  The  system  was 
required  to  support  additional  onboard  data  gathering  from  the  AGLS,  a  projectile 
velocimeter  and  propellant  temperature  system.  In  addition  to  relaying  gun 
orders  from  the  FDC  to  the  howitzer,  the  charge  and  fuze  time  were  also  to  be 
transmitted  and  the  latter  relayed  to  a  GFE  electronic  time  fuze  setter.  The 
primary  data  link  between  the  FDC  and  vehicle  employed  by  AN/VRC-46  Military  FM- 
VHF  command  radio  set  with  backup  furnished  by  a  WD-1  and  land  line  link.  The 
effort  was  proposed  to  be  accomplished  by  the  contractor  under  Amend/Modifica¬ 
tion  No.  P00011  to  the  basic  AGLS  contract. 

2.  System  Development  and  Fabrication 

Following  the  design  study,  detail  design  of  the  AGLS  components  was  initiated. 
One  of  the  major  tasks  Involved  the  modifications  of  the  instrument  servo  com¬ 
ponents  to  provide  servo  drive  capability.  Government  drawings  were  used  as  the 
basis  for  detailed  layout  drawings,  from  which  wood  mock-ups  were  fabricated. 
These  mock-ups  were  then  Installed  in  the  M109  and  the  fire  control  instruments 
were  placed  at  the  mechanical  limit  to  determine  worst  case  mechanical  inter¬ 
ferences.  The  interfering  material  was  then  removed  from  the  wood  mock-ups,  and 
the  layouts  were  modified  to  accommodate  the  available  space.  Several  Iterations 
were  necessary  before  acceptable  layouts  were  generated.  Then,  detail  drawings 
were  drawn,  and  used  by  design  technicians  to  build  the  prototype  hardware. 

Installation  of  the  AOS  hydraulic  components  was  accomplished  using  special 
tubes  and  brackets  fabricated  specifically  for  the  M109.  An  Electronic 
Controller  Unit  (ECU)  as  used  In  the  M60A1  was  used  except  that  azimuth  and 
elevation  modules  characterized  to  the  M109  were  developed,  fabricated  and  in¬ 
stalled. 
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Further  definition  of  the  data  display  requirements  indicated  the  desirability 
of  three  data  display  panels  and  a  separate  digital  controller  unit.  A  contract 
modification  was  negotiated  to  incorporate  three  display  panels  into  the  AGLS. 
The  data  display  requirements,  system  operating  mode  selection,  and  various 
sequencing  operations  required  to  satisfy  system  performance  requirements  all 
pointed  to  the  desirability  of  using  a  microprocessor  to  provide  the  digital  data 
processing.  Since  a  microprocessor  was  already  being  used  by  the  contractor  on 
another  program,  it  was  decided  to  utilize  the  same  processor,  a  Motorola  6800, 
and  to  add  the  peripheral  boards  needed  by  the  AGLS  system. 

The  tracker,  instrument  controller  and  system  power  supply  were  all  designed  for 
the  AGLS  and  involved  initial  design,  breadboard  test  and  prototype  fabrication. 
Layout  drawings  were  generated  and  details  were  developed  sufficient  to  facili¬ 
tate  fabrication  by  design  technicians.  Functional  tests  were  performed  on  each 
of  the  completed  units  prior  to  installation  in  the  M109  to  assure  proper  system 
performance. 

The  digital  subsystem  development  and  fabrication  consisted  primarily  of  design 
of  the  display  panels  and  controller  housing.  To  assist  In  the  panel  design,  a 
human  factors  specialist  reviewed  the  system  requirements,  participated  in  a 
contract  meeting  and  live  fire  demonstration  at  Ft.  Sill,  and  developed  the  panel 
arrangement  for  all  three  display  panels.  The  remainder  of  the  digital  develop¬ 
ment  task  involved  packaging  of  previously  used  circuits  for  the  data  interface 
circuit  boards,  assembly  of  previously  designed  processor  boards,  and  writing  of 
the  system  software. 

After  the  system  components  were  assembled  and  installed  in  the  M109,  preliminary 
functional  and  performance  tests  were  conducted.  During  these  tests,  several 
changes  in  system  sequence  control  and  operating  procedures  became  necessary. 
These  were  readily  implemented  by  software  changes,  most  of  which  could  be 
implemented  in  less  than  one  day  elapsed  time,  by  use  of  the  microprocessor  and 
the  contractor's  microprocessor  development  system. 

A  requirements  analysis  was  performed  on  the  following  devices  to  establish 
subsystem  compatibility  and  interface  requirements  for  the  HELBAT  VII  effort. 
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o  GACS  (CPU,  GU  and  power  supply  -  interface  adapters) 


o  AN/VRC-46  Military  radio 

o  Digital  Equipment  Corporation  PDP11/34  minicomputer,  its  UNIBUS  struc¬ 
ture  and  DL11-E,  DR11-L,  DR11-M  and  DG11  I/O  interfaces 

o  Lear  Siegler  MVR  DR -810  ve loci meter 

o  Electronic  Fuze  Setter  and  interfaces:  HELBAT  VI/XM587E2 
o  Propellant  Temperature  System 
o  M109  AGLS  Power  Conditioning  System 

Following  completion  of  the  requirements  analysis,  a  detailed  design  was  com¬ 
pleted  on  the  FDC  Communication  Processor  and  the  Vehicle  Communication  Proc¬ 
essor.  This  effort  included  the  design  of  microprocessor  based  communication, 
control  and  interface  hardware  and  the  associated  software  formats,  protocols 
and  logical  instruction  sequences  to  interface  between  the  hardware  and  the 
serial  (radio  and  line)  data  link.  In  addition,  a  separate  processor  was  de¬ 
signed  to  acquire  and  decode  output  from  the  GACS  reference  unit.  This  processor 
became  part  of  the  Vehicle  Conmunicatlon  Subsystem. 

After  detailed  design,  the  FDC  Communication  Processor,  Vehicle  Communication 
Processor  and  Reference  Unit  Processor  were  fabricated.  The  FDC  Communication 
Processor  was  fabricated  and  packaged,  using  open  card  frame  construction,  to  fit 
into  a  6  inch  relay  rack  chassis.  Interface  to  the  FDC  computer  was  accomplished 
via  a  multi  conductor  cable  and  mating  DEC  connectors.  The  Vehicle  Communication 
and  Reference  Unit  Processors  were  fabricated  and  pacakged  In  a  custom  chassis 
designed  to  utilize  the  space  envelope  and  to  contain  the  communications  and 
reference  unit  subsystems  as  well  as  the  displays  and  controls  required  to 
supplement  the  AGLS  Chief  of  Section  panel. 
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3.  System  Integration  &  Test 

Separate  in-house  and  field  test  programs  were  conducted  for  the  AGLS  and  HELBAT 
VII  development  tasks.  This  section  presents  the  details  of  each  of  these 
separate  activities  in  the  chronological  order  they  were  performed. 

a.  AGLS 

A  test  plan  was  prepared  and  submitted  to  ARRADCOM  for  approval  prior  to  AGLS 
system  acceptance  testing.  The  acceptance  tests  were  conducted  at  the  Honeywell 
Proving  Ground,  with  the  assistance  of  the  Contracting  Officer's  technical 
representatives.  A  test  report  was  prepared  and  has  been  separately  submitted  to 
the  Contracting  Officer. 

The  completed  AGLS,  installed  in  the  M109,  was  shipped  to  Ft.  Sill,  Oklahoma  for 
tests  by  the  U.S.  Army  Field  Artillery  Board.  These  tests  consisted  of  twelve 
planned  days  of  dry  fire  testing,  and  one  day  of  live  firing.  A  contractor 
representative  was  present  to  provide  training  of  the  U.S.  Army  Field  Artillery 
test  crews,  and  to  assist  in  technical  support  during  the  test  period. 

The  test  plan  was  prepared  by  ARRADCOM,  and  the  progress  of  the  tests  was 
monitored  by  both  a  contractor's  representative  and  by  a  representative  from 
ARRADCOM.  The  tests  were  conducted  over  the  period  20  March  through  26  April 
1978.  On  26  April,  testing  was  concluded  with  the  firing  of  twenty  M107  projec¬ 
tiles  using  the  M119  propelling  charge  (Zone  8).  With  the  exception  of  two 
display  boards  being  displayed  out  of  their  connectors,  no  AGLS  components  were 
affected  by  the  firing  shock.  A  separate  report  on  the  Ft.  Sill  tests  will  be 
issued  by  ARRADCOM. 

b.  HELBAT  VII  Communication 

Laboratory  debug  and  checkout  of  the  AGLS  Communications  consisted  of  simulating 
the  FDC  computer,  the  gun  laying  subsystem  and  the  serial  line  interfaces.  The 
existing  AGLS  simulator  was  used  to  checkout  that  Interface  and  appropriate  thumb 
wheels,  switches  and  displays  provided  stimulus  for  the  remaining  functions. 
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The  reference  unit  processor  was  tested  separately  using  the  GACS  Reference  unit 
and  GACS  IR  Receiver  to  provide  stimulation. 

The  vehicle  communication  subsystem  along  with  the  available  supporting  sub¬ 
systems  were  installed  in  the  AGLS  equipped  M109A1  vehicle.  Inputs  to  the  system 
were  provided  through  the  vehicle  communications  processor  serial  line 
simulator.  Test,  diagnostic  and  simulation  techniques  developed  during  this 
testing  were  documented  for  subsequent  use  by  the  customer. 

The  vehicle  was  moved  outside  the  Honeywell  Defense  Systems  Laboratory  for  a 
total  system  checkout  using  both  radio  and  land  line  serial  data  links.  FOC 
computer  inputs  to  the  FDC  comunication  processor  were  simulated  in  this  test. 
This  test  constituted  the  acceptance  test. 

Field  testing  was  performed  at  Ft.  Sill,  Oklahoma  as  part  of  HELBAT  VII  during 
the  period  20  February  1979  through  30  March  1979.  In  addition,  a  Human 
Engineering  Laboratory  evaluation  test  program  was  performed  from  30  July  1979  to 
25  August  1979.  The  specific  test  results  from  both  these  programs  are  to  be 
published  by  HEL. 

4 .  Document at i on 


Drawings  were  prepared  and  delivered.  This  report,  with  its  appendix,  is  sub¬ 
mitted  as  the  final  activity  on  this  contract. 


III.  CONCLUSIONS  AND  RECOMMENDATIONS 


The  Automated  Gun  Laying  System  developed  under  contract  DAAA09-76-C-2084  satis¬ 
fied  the  previously  stated  objectives.  The  system  automated  the  leveling,  data 
offset,  azimuth  reference,  elevation  reference,  and  weapon  azimuth  and  elevation 
functions  of  the  M109A1  howitzer.  Automation  of  various  functions  could  be 
selected  on  an  incremental  basis,  and  all  manual  operations  were  retained.  All 
automatic  functions  utilized  the  manual  inputs  (knobs)  and  feedback  sensors 
(spirit  levels  or  sight  picture)  to  retain  commonality,  thus  enabling  the  U.S. 
Army  Field  Artillery  test  crews  to  operate  the  AGLS/M109  in  all  levels  of  automa¬ 
tion  with  a  minimum  of  training.  During  contractor  tests  and  demonstrations  at 
Ft.  Sill,  it  became  apparent  that  the  gun  laying  function  could  be  accomplished 
by  one  crew  member.  In  the  case  of  momentary  obscuration  between  the  howitzer 
and  the  reference  unit,  it  proved  desirable  to  have  a  second  crew  member  to 
assist  in  recognizing  operational  faults  and  to  resume  laying  operations.  The 
second  crew  member  also  provides  verification  of  final  acquisition  as  shown  in 
the  sight  picture,  and  provides  a  safety  back-up  by  visually  checking  the  pantel 
counter  and  spirit  levels. 

The  M109  operated  for  over  five  weeks  at  Ft.  Sill  (March-April  1978)  with  no 
failures,  except  for  malfunctions  precipitated  by  out-of-specification  perform¬ 
ance  of  the  M109  electrical  systems,  and  two  printed  circuit  data  display  boards 
that  became  disengaged  from  their  connectors  as  a  result  of  gun  fire  shock.  In 
addition,  some  operational  problems  were  experienced  in  the  use  of  the  government 
furnished  Gun  Alignment  Control  System  (GACS). 

During  the  HELBAT  VII  testing  several  vehicle  failures  were  experienced  which 
seriously  degraded  the  ability  of  the  AGLS-COMM  system  to  function  effectively. 

Problems  experienced  with  TB-1  fall  into  three  categories,  namely:  vehicle 
automotive,  radio  data  communication,  and  gun  laying.  As  a  result  of  various 
vehicle  automotive  problems  with  the  recoil,  electrical,  fuel  cell  and  hydraulic 
hardware,  TB-1  was  not  available  for  firing  until  March  18th;  the  beginning  of 
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the  fifth  week  of  the  six  week  test  program.  While  some  limited  communication 
system  checkout  and  crew  training  were  accomplished  in  the  Interim  no  complete 
exercise  of  the  FDC/vehicle  interaction  in  the  fully  automatic  mode  was 
performed . 

The  lack  of  a  scheduled  preparation  and  crew  training  phase  also  resulted  in 
several  unanticipated  radio  data  communication  problems.  The  most  significant 
of  these  was  the  absence  of  integrated  fully  reliable  voice  communication  between 
the  FDC  and  TB-1.  Without  this  voice  radio  capability  the  crew  operation  of  the 
TB-1  system  and  range  safety  management  were  impacted.  Through  subsequent 
efforts  (after  March  18)  of  Helbat  control  and  Automated  FDC  crew  a  voice  radio 
link  was  established.  Also  contributing  to  the  data  communication  problem  were 
various  protocol  and  timing  differences  between  the  TB-1  FDC  interface  and  the 
FDC  computer.  These  differences  were,  to  a  large  extent,  only  revealed  when  the 
crew  attempted  to  interact  with  the  FDC  In  a  firing  scenario.  Because  of  a  lack 
of  scheduled  dry  firing  exercise  with  a  dedicated  FDC,  many  of  the  interface 
problems  were  not  discovered  until  the  vehicle  was  on  line.  When  problems  were 
discovered,  software  changes  were  made  off-hours  and  were  checked  out  by 
Honeywell  with  the  excellent  cooperation  of  the  Automated  FDC  crew.  Unfor¬ 
tunately,  the  military  FDC  controllers  and  crew  were  not  present  for  those  after 
hours  training  opportunities. 

The  digital  data  communication  problems  experienced  with  TB-1  were  largely  the 
result  of  the  transmission  scheme  and  protocols  being  different  and  more  sophis¬ 
ticated  than  that  used  for  the  other  three  vehicles.  In  addition,  the  TB-1 
system  was  fabricated,  to  specification,  by  Honeywell  and  was  not  as  familiar  to 
the  Automated  FDC  technicians  as  the  communication  system  that  they  designed  and 
built  for  the  remaining  vehicles.  We  feel  that  the  techniques  used  for  the  TB-1 
system  represent  future  self  propelled  howitzer  digital  communication  configura¬ 
tions.  Because  the  TB-1  system  was  different  and  required  In-the-fleld  adjust¬ 
ments  to  Interface  with  the  Helbat  VII  mission  sequences,  more  FDC/crew  dry  fire 
training  should  have  been  scheduled,  with  the  military  crews  of  the  FDC  and  TB-1 
each  using  procedures  Identical  to  those  used  In  live  fire  missions. 

The  third  significant  problem  area,  gun  laying  resulted  mostly  from  the  same  lack 
of  scheduled  crew  training  and  preparation.  Significant  software  changes  were 
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accomplished  in  the  field  as  a  result  of  the  crews  interface  with  the  TB-1 
digital  data  system  and  displays.  This  man-machine  interface  input  was  most 
valuable  to  our  understanding  of  automated  fire  control  design,  but  unfor¬ 
tunately  was  not  revealed  until  the  system  was  on  line  and  scheduled  for  firing. 
As  an  example,  it  was  only  after  a  fire  order  has  been  sent  to  TB-1  at  the  start 
of  a  live  fire  mission  that  FDC  stated  that  they  could  not  process  a  NORMAL  angle 
as  had  been  designed  into  the  Reference  Unit  Processor  section  of  the  AGLS 
communication  unit.  Fortunately,  the  processor  could  be  operated  in  the  Distant 
Aiming  Point  mode  to  provide  3200  based  azimuth  data  back  to  the  FDC.  Honeywell 
design  personnel  then  modified  the  AGLS  vehicle  software  to  provide  3200  based 
commands  and  feedback,  thus  satisfying  the  belatedly  recognized  needs  of  the  FDC 
and  gun  crew.  Other  gun  laying  related  problems,  involving  the  GACS  Reference 
Unit  alignment,  laying  the  battery  and  fire  order/check  fire  sequencing  also  were 
impacted  by  the  lack  of  scheduled  opportunity  for  adequate  crew  training  with  the 
dedicated  FDC. 

The  Helbat  VII  test  program  was  a  revealing  experience  for  Honeywell  and  con¬ 
tributed  significantly  to  the  maturation  of  the  TB-1  system.  In  spite  of  the 
problems  experienced  in  the  aforementioned  areas,  very  encouraging  results  were 
obtained.  The  crew's  acceptance  of  the  system  (once  they  had  adequate  training) 
contributed  to  the  excellent  results  achieved  during  the  last  week  of  the  pro¬ 
gram.  While  fully  automated  operation  was  not  achieved  on  all  missions,  the 
ability  of  the  TB-1  system  to  function  reliably  In  degraded  modes  was  very 
encouraging.  The  digital  data  transmission  system  consistently  transferred 
valid  gun  order  data  into  vehicle  in  spite  of  severe  radio  skip  interference  and 
conflicting  use  of  assigned  radio  frequencies;  the  simplex  radio  data  link  reli¬ 
ability  was  proven.  In  addition,  the  flexibility  of  the  microprocessor  approach 
to  the  onboard  fire  control  scheme  was  amply  demonstrated  In  that  six  significant 
changes  to  system  operational  software  were  Implemented  in  the  field. 

Some  conclusions/recommendations  that  result  from  our  observations  of  the  system 
operating  in  a  "field"  environment  follow: 

a.  In  the  fully  automatic  mode  of  operation,  the  gunner  and  assistant  gunner  are 
not  needed.  Their  tasks  are  essentially  taken  over  by  the  chief  of  section,  who 
operates  the  power,  servo,  weapon,  load,  and  reference  unit  (RU)  search  switches 


to  operate  the  AGIS.  Thus,  the  chief  of  section  has  been  transferred  from  a 
supervisory  role  in  the  present  M109  to  a  single  operator  role  in  the  AGLS.  In 
addition,  the  chief  of  section  was  required  to  monitor  the  reference  angle  from 
the  GACS,  to  mentally  test  for  reasonableness,  and  to  initiate  a  recovery  plan  if 
erroneous  commands  were  handed  off  from  the  GACS  to  the  AGLS.  All  of  these  new 
tasks  represent  a  significant  increase  in  the  chief  of  sections  work  load. 

b.  It  may  be  desirable  to  implement  certain  or  all  of  the  features  of  the 
Automated  Gun  Laying  System  into  either  a  program  to  retrofit  M109's  or  to  design 
a  new  self-propelled  howitzer.  If  this  is  to  be  accomplished,  and  an  engineering 
development  program  is  initiated,  the  following  improvements  to  the  AGLS  should 
definitely  be  considered: 

1.  Instrument  Servos 


The  M109  fire  control  instruments  (quadrant,  pantel,  and  mount)  should  be  rede¬ 
signed  to  incorporate  the  AGLS  features  into  these  instruments  to  obtain  integral 
assemblies. 

2.  Instrument  Controller  Unit 


An  investigation  should  be  directed  toward  the  feasibility  of  a  common  controller 
for  the  five  servo  channels.  This  controller  should  be  designed  as  a  function¬ 
ally  complete,  plug-in  assembly,  to  satisfy  the  Reliability,  Availability,  and 
Maintainability  (RAM)  requirements  as  stated  by  the  Ft.  Sill  maintenance  evalua¬ 
tion. 

3.  System  Power  Supply 

Operating  power  consumption  measurements  should  be  conducted  to  determine  the 
maximum  power  requirements  of  the  AGLS  instrument  servos  and  digital  components. 
Test  data  thus  obtained  may  permit  reduction  of  the  peak  power  capability,  and, 
therefore,  the  physical  size  of  the  system  power  supply.  Thermal  characteristics 
should  also  be  measured,  to  determine  the  feasibility  of  reducing  the  internal 
heat  sink  structure,  and  thus  reduce  the  power  supply  size  and  weight.  Plug-in 
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assemblies,  error  monitor  circuits,  and  test  points  should  be  implemented  to 
enhance  maintainability. 

4.  Digital  Controller  Unit 

After  system  software  has  been  finalized,  the  digital  controller  unit  should  be 
repartitioned  to  yield  the  minimum  necessary  digital  system.  Functionally  com¬ 
plete  assemblies  should  be  utilized,  with  a  minimum  of  inter-board  connecting 
harnesses.  Second  or  third  generation  microcomputer  chip  sets  would  permit  a 
reduced  number  of  components  and  interconnections,  with  attendant  reductions  of 
power  consumption  and  enhanced  system  reliability. 

c.  Testing  downtime  could  be  minimized  and  more  representative  results  obtained 
if  more  attention  was  directed  in  certain  areas.  These  areas  include: 

1)  Vehicular  and  Equipment  "Shake-Down"  Prior  to  Test  —  More  than  one 
third  of  the  test  period  was  consumed  by  repair  operations. 

2)  Training  and  Orientation  Exercises  —  Much  more  representative  data 
would  be  available  if  the  gun  crew  had  a  thorough  understanding  of  the 
system  operation.  More  importantly,  the  safety  of  the  test  program 
could  have  been  improved  if  pretest  training  had  been  run  to  identify 
protocol  and  communication  problems. 

3)  Testing  Procedure  —  The  advantages  of  the  system  would  be  obvious  if 
the  test  procedure  could  have  included  scenarios  designed  to  depict 
the  level  of  equipment  sophistication. 
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IV.  SYSTEM  DESCRIPTION 


The  A6LS  consists  of  six  major  subsystems  as  follows: 

o  Fire  Control  Instrument  Servo  Subsystem 
o  Digital  Control  Subsystem 
o  Gun  Alignment  Control  System 
o  Infrared  Receiver 
o  Weapon  Control  System 
o  System  Power  Supply 

The  block  diagram  showing  the  major  interfaces  between  subsystems  and  components 
is  provided  in  Figure  1.  The  cable  connections  between  the  system  components  are 
provided  in  Appendix  A. 

The  configuration  and  basic  operation  of  each  of  the  AGLS  subsystems  is  described 
in  the  following  subsections. 

A.  Fire  Control  Instrument  Servo  Subsystem 

The  instrument  servo  subsystem  consists  of  an  instrument  controller  unit  (see 
Figure  2)  and  the  M-109  fire  control  instruments  (M-117  telescope,  M-145  mount 
and  M-15  quadrant).  The  fire  control  instruments  have  been  modified  to  provide 
automatic  operation  of  the  basic  fire  control  functions  In  the  AGLS/M-109.  The 
modification  includes  the  addition  of  electric  drive  motors,  gears,  and  sensors, 
which  have  been  attached  to  the  fire  control  instruments.  The  modified  fire 
control  instruments  are  shown  in  Figures  3,  4  and  5.  All  existing  features  such 
as  knobs,  level  vials  and  mechanical  counters  have  been  retained. 

The  fire  control  instrument  servo  subsystem  consists  of  five  separate  servo 
channels  as  follows: 
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Figure  1.  Block  Diagram,  Automatic  Gun  Laying  System. 
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Figure  2.  Instrument  Controller  Unit 


Figure  3.  Modified  M-117  Telescope 

\ 
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1.  M-15  quadrant  cant 

2.  M-15  quadrant  pitch 

3.  M-145  mount  cant 

4.  M-145  mount  pitch 

5.  M-117  telescope  azimuth 

Each  of  the  servo  channels  consist  of  an  electric  drive  motor,  an  amplifier,  and 
one  or  more  output  sensors.  All  servo  channels  are  similar  in  operation  and  are 
described  in  the  following  paragraphs. 

1.  Quadrant  Cant  Servo 

The  cant  axis  of  the  M-15  quadrant  can  be  leveled  by  the  quadrant  cant  servo 
which  is  shown  in  the  block  diagram  of  Figure  6.  The  servo  consists  of  an 
integral  motor/tachometer,  coupled  through  precision  gears  to  the  cross  level 
knob  on  the  quadrant.  A  sensor  mounted  on  the  level  vial  platform  detects  an 
out-of-level  condition  and  generates  a  positive  or  negative  signal  which  is 
applied  to  the  controller  amplifier  contained  in  the  instrument  controller  unit. 
The  amplifier  processes  the  signal  and  generates  an  electric  current  to  provide 
power  to  the  servo  motor,  which  then  rotates  the  cross-level  knob  to  bring  the 
quadrant  back  to  a  level  position. 

The  tachometer  section  of  the  motor/tachometer  unit  provides  a  direct  current 
signal  proportional  to  the  rotating  speed  of  the  servo  motor.  This  rate  signal 
is  used  to  control  the  maximum  speed  of  the  servo,  and  to  provide  a  prediction 
signal  to  more  accurately  control  the  motor  rotation.  Since  the  tachometer  is 
closely  coupled  to  the  motor.  It  is  not  Influenced  by  the  backlash  of  the 
quadrant  mechanism,  and  will  provide  an  accurate  Indication  of  servo  motor 
motion.  The  same  type  of  motor  Is  used  In  one  of  two  different  housings  for  each 
of  the  five  instrument  servos. 

While  the  tachometer  provides  a  rate  signal  when  the  motor  Is  rotating,  the  final 
or  null  position  Is  determined  by  the  signal  from  the  level  sensor.  The  level 
sensor  Is  an  accelerometer,  which  senses  local  gravity  and  generates  a  positive 
or  negative  signal  proportional  to  the  angle  of  the  accelerometer  with  respect  to 
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level.  For  an  ideal  sensor  with  no  null  error,  the  level  sensor  output  will  be 
nulled  when  the  level  sensor  is  level. 

The  null  position  of  the  quadrant  cant  servo  can  be  adjusted  by  means  of  the  cant 
knob  on  the  quadrant  trim  unit.  This  control  generates  a  positive  or  negative 
signal  which  is  added  to  the  level  sensor  signal  before  it  is  supplied  to  the 
controller  amplifier. 

Trimming  the  level  sensor  permits  more  precise  leveling  of  the  quadrant  by 
compensating  for  the  changes  in  null  signal  of  the  level  sensor.  Adjustment  of 
the  trim  is  accomplished  by  observing  the  level  vial  while  adjusting  the  cant 
trim  knob,  with  the  quadrant  cant  leveling  servo  engaged.  The  cant  trim  knob  is 
then  rotated  clockwise  or  counterclockwise  until  the  bubble  is  centered  in  the 
level  vial. 

2.  Quadrant  Pitch  Servo 

The  pitch  axis  of  the  M-15  quadrant  is  shown  in  the  block  diagram  of  Figure  7. 
The  servo  consists  of  a  motor/tachometer,  gears,  level  sensor,  and  controller 
amplifier  similar  to  those  in  the  cant  axis  and  can  be  controlled  in  either  of 
two  modes. 

In  the  level  mode,  the  servo  functions  exactly  as  described  in  the  preceding 
discussion  of  the  quadrant  cant  axis.  The  quadrant  pitch  level  position  can  be 
adjusted  by  using  the  pitch  trim  control  knob  on  the  quadrant  trim  unit. 

A  digital  encoder  has  been  added  to  the  quadrant  pitch  axis  to  measure  the  pitch 
angle  of  the  level  vial  platform.  This  encoder  permits  operation  of  the  quadrant 
pitch  servo  in  the  automatic  offset  mode.  In  this  mode,  the  quadrant  level  vial 
platform  (and  mechanical  counter)  can  be  automatically  driven  to  a  commanded 
position,  thus  displacing  the  pitch  level  vial  and  the  level  sensor.  This  mode 
is  used  in  the  automatic  offset  configuration  and  also  in  the  fully  automatic 
elevation  configuration. 

The  encoder  is  geared  to  the  pitch  input  knob,  and  utilizes  the  Internal 
mechanism  of  the  M-15  quadrant  to  couple  the  encoder  shaft  to  the  level  vial 
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platform.  The  encoder  consists  of  a  high  resolution  section  which  resolves  the 
knob  position  to  the  nearest  0.1  mil,  and  a  low  resolution  section  which  counts 
the  number  of  turns  of  the  knob.  The  encoder  thus  measures  actual  quadrant  pitch 
to  the  nearest  0.1  mil  for  the  full  range  of  0  to  6399.9  mils.  Since  the  quadrant 
range  is  limited  to  from  negative  228  mils  to  postive  1383  mils,  the  encoder  will 
read  a  negative  angle  0  as  (6400-0). 

The  output  of  the  encoder  consists  of  19  lines  of  parallel  digital  information. 
Each  line  has  either  a  5.0  volt  output  or  a  zero  output.  The  output,  in  binary 
coded  decimal  form,  is  transmitted  to  the  digital  controller  unit  by  a  separate 
wiring  harness.  The  digital  controller  unit  accepts  the  encoder  data,  the 
commanded  data  from  the  GACS  gun  unit,  and  the  encoder  trim  data.  It  then 
subtracts  the  actual  data  from  the  commanded  data  to  generate  a  correction 
digital  signal.  This  digital  signal  is  converted  to  a  positive  or  negative 
direct  current  signal,  and  applied  to  the  signal  selector  relay  in  the  instrument 
controller  unit.  The  signal  selector,  on  command  from  the  digital  controller 
unit,  will  connect  the  position  error  signal  derived  from  the  encoder,  and 
disconnect  the  level  sensor  signal.  The  signal  is  then  applied  to  the  quadrant 
pitch  amplifier,  to  drive  the  pitch  servomotor.  This  action  will  continue  until 
the  error  signal  achieves  a  null.  Indicating  that  the  encoder  output  is  equal  to 
the  commanded  input.  The  quadrant  has  thus  been  driven,  or  offset,  to  a  com¬ 
manded  position  by  the  quadrant  pitch  servo. 

3.  Telescope  Mount  Cant  Servo 

The  cant  axis  of  the  M-145  mount  can  be  driven  to  level  by  the  mount  cant  servo, 
which  Is  identical  in  block  diagram  form  to  the  quadrant  cant  servo  as  shown  In 
Figure  6.  The  motor/tachometer  Is  coupled  through  an  attached  drive  mechanism  to 
the  cant  correction  knob.  A  level  sensor  mounted  to  measure  telescope  cant 
generates  a  positive  or  negative  signal  in  response  to  the  cant  position  of  the 
telescope  mounting  seat.  This  signal  Is  applied  to  the  mount  cant  amplifier  in 
the  Instrument  controller  unit,  and  the  amplifier  provides  a  drive  current  to  the 
mount  cant  servo  motor  to  drive  the  mount  to  a  level  condition.  As  in  the  two 
quadrant  level  axes,  the  mount  cant  level  null  position  can  be  adjusted  to  a 
precise  level  position  by  use  of  the  cant  control  knob  on  the  azimuth  trim  unit. 
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4.  Telescope  Mount  Pitch  Servo 

The  pitch  axis  of  the  M-145  mount  can  be  driven  to  level  by  the  mount  pitch  servo. 
This  servo  consists  of  a  motor/tachometer,  drive  mechanism,  controller  ampli¬ 
fier,  and  a  level  sensor  located  to  measure  telescope  mounting  seat  pitch  atti¬ 
tude.  A  trim  control  knob  located  on  the  azimuth  trim  unit  is  provided  to  adjust 
the  null  position  for  precise  level. 

5.  Telescope  Azimuth  Servo 

The  azimuth  1 ine-of-sight  of  the  M-117  panoramic  telescope  can  be  deflected  by 
the  telescope  azimuth  servo,  shown  in  the  block  diagram  of  Figure  8.  Drive  is 
provided  by  a  motor/tachometer  coupled  through  gears  to  the  azimuth  knob  shaft. 
A  digital  encoder  is  also  geared  to  this  shaft,  and  adjusted  to  measure  the 
telescope  deflection,  as  displayed  in  the  azimuth  counter.  A  controller  ampli¬ 
fier  in  the  instrument  controller  unit  provides  power  to  drive  the  telescope 
azimuth  motor. 

The  telescope  head  has  been  modified  to  accommodate  three  added  components;  the 
GACS  infrared  receiver,  the  AGLS  tracker,  and  a  slip  ring  assembly.  The  GACS 
receiver  will  be  described  in  a  later  section.  The  AGLS  tracker  is  a  passive 
device  which  detects  the  XENON  lamp  output  from  the  GACS  reference  unit,  and 
generates  a  positive  or  negative  direct  current  signal  proportional  to  the 
deflection  of  the  reference  unit  from  the  telescope  1  ine-of-sight.  The  slip  ring 
assembly  is  used  to  transfer  the  GACS  receiver  and  the  AGLS  tracker  signals  from 
the  rotating  telescope  head  through  a  wiring  harness  to  the  telescope  trim  unit, 
and  then  to  the  instrument  controller  unit. 

The  telescope  azimuth  servo  can  be  operated  in  two  modes;  Automatic  Offset  and 
Reference  Unit  Acquisition.  Selection  of  mode  is  accomplished  by  program  control 
and  by  the  chief  of  section  controls.  In  the  Automatic  Offset  mode,  the  encoder 
output  and  the  azimuth  commanded  deflection  from  the  GACS  gun  unit  are  accepted 
by  the  digital  controller  unit,  which  calculates  the  digital  difference  signal. 
The  digital  controller  unit  generates  a  converted  positive  or  negative  azimuth 
error  signal  which  is  connected  by  the  error  signal  selector  to  the  telescope 
azimuth  controller  amplifier.  The  amplifier  output  current  is  then  applied  to 
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the  telescope  azimuth  motor  to  drive  the  azimuth  knob  until  the  telescope  deflec¬ 
tion,  as  displayed  in  the  azimuth  counter,  is  equal  to  the  commanded  azimuth 
value.  This  mode  is  in  principle,  exactly  like  the  automatic  offset  of  the 
quadrant  pitch  axis. 

In  the  Reference  Acquisition  mode,  the  telescope  azimuth  axis  is  commanded  by  the 
error  signal  from  the  tracker  mounted  on  the  telescope  head.  The  position  error 
signal  from  the  tracker  is  applied  through  the  error  signal  selector  to  the 
azimuth  controller  amplifier.  The  amplifier  output  drives  the  azimuth  motor  in  a 
direction  to  reduce  the  error,  until  the  tracker  output  achieves  a  null,  thus 
indicating  that  the  1 ine-of-sight  is  in  alignment  with  the  reference  unit.  A 
trim  control  located  on  the  azimuth  trim  unit  is  provided  to  adjust  the  final 
null  to  center  the  1 ine-of-sight  exactly  on  the  reference  unit. 

If,  prior  to  servo  engagement,  the  telescope  is  positioned  such  that  the  refer¬ 
ence  unit  is  within  the  tracker  field  of  view  of  plus  or  minus  100  mils,  the 
telescope  will  automatically  lock-on  to  the  reference  unit  when  the  servo  switch 
is  activated.  However,  if  the  reference  unit  is  outside  the  tracker  field  of 
view,  the  telescope  servo  must  be  commanded  to  acquire  the  reference  unit.  This 
command  is  provided  as  a  steady  positive  or  negative  command  from  the  digital 
controller  unit  and  is  initiated  by  the  Reference  Unit  (RU)  search  control  on  the 
Chief  of  Section  Panel.  The  digital  controller  unit  also  provides  an  enable 
signal  to  energize  the  servo  and  a  signal  select  signal  to  activate  the  error 
signal  selector  to  connect  the  command  signal  to  the  azimuth  controller  ampli¬ 
fier.  The  RU  search  command  causes  the  telescope  to  drive  at  constant  rate  until 
the  reference  unit  comes  into  the  tracker  field  of  view.  As  the  tracker  senses 
the  reference  unit,  it  generates  a  digital  signal  which  is  recognized  by  the 
digital  controller  unit.  The  digital  controller  unit  then  transfers  control  to 
the  tracker  by  removing  the  signal  select  enable  signal,  and  the  tracker  will 
then  cause  the  telescope  to  lock  onto  the  reference  unit  by  the  procedure 
described  previously. 
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B.  Digital  Control  Subsystem 


The  digital  control  subsystem  serves  as  the  interface  between  the  gun  crew,  the 
fire  direction  center,  and  the  servo  control  subsystems  of  the  AGLS.  The  digital 
control  subsystem  consists  of  the  following  assemblies: 

1. 

Digital  Controller  Unit 

2. 

Chief  of  Section  Panel 

3. 

Gunner's  Display  Panel 

4. 

Assistant  Gunner's  Display  Panel 

Each  of  the  above  assemblies  is  described  below. 

1.  Digital  Controller  Unit 

The  AGLS  digital  controller  unit  (DCU)  provides  the  system  logic  and  control 
necessary  to  perform  the  following  functions: 

o  Receive  commanded  azimuth  and  elevation  data  from  the  GACS  gun  unit 

o  Monitor  weapon  azimuth  and  elevation  data  from  the  panoramic  telescope 
and  M-15  quadrant 

o  Calculate  position  errors  and  generate  correction  signals  to  drive  the 
fire  control  instrument  servos 

o  Generate  enable  signals  for  the  analog  servos 

o  Provide  data  to  the  display  panels 

o  Monitor  analog  sensor  null  signals 

The  digital  controller  unit  Is  shown  in  Figure  9. 


Digital  Controller  Unit 


The  digital  controller  unit  processes  signals  from  and  to  three  separate  systems: 
GACS,  AGLS  analog  and  AGLS  digital.  Since  each  system  has  its  own  separate 
ground  point,  ground  isolation  must  be  provided  beweeen  systems  to  prevent  ground 
currents  and  common  mode  noise  signals.  Optically  coupled  isolators  have  been 
included  at  the  GACS/AGLS  digital  interface  as  well  as  the  AGLS  digital/analog 
interface,  thus  permitting  each  system  to  be  grounded  at  its  optimum  point  while 
providing  data  flow  between  the  systems.  A  block  diagram  of  the  instrument 
controller  unit  is  shown  in  Figure  10. 

The  DCU  consists  of  seven  printed  circuit  boards  as  follows: 

a.  Central  Processor  Unit  (CPU) 

b.  Parallel  Interface  Adaptor  (PIA) 

c.  GACS  Interface 

d.  Dual  Analog  to  Digital  Converter 

e.  Multiplexed  Analog  to  Digital  Converter 

f.  Dual  Digital  to  Analog  Converter 

g.  Power  Supply 

Each  of  these  elements  is  described  in  the  following  paragraphs. 

a.  Central  Processor  Unit  —  The  CPU  board  contains  all  the  components  for  a 
complete  microcomputer  system,  requiring  only  power  and  an  input/output  device 
to  provide  a  working  digital  system.  The  board  Is  a  general  purpose  computer 
board,  containing  a  Motorola  M6800  CPU,  4096  bytes  of  program  memory  (PROM),  4096 
bytes  of  random  access  memory  (RAM),  two  serial  asynchronous  interfaces  (ACIA), 
one  parallel  interface  adaptor  (PIA),  a  programmable  timer,  and  address  bus 
drivers  to  Interface  the  CPU  to  the  remainder  of  the  digital  system. 

The  firmware,  which  determines  the  operating  characteristics  of  the  digital 
system,  is  stored  in  four  electrically  programmable  memory  (EPROM)  2708  Inte¬ 
grated  circuits.  These  circuits  are  mounted  In  sockets  on  the  CPU  board  to 
facilitate  program  changes  during  development.  Temporary  memory,  used  to  store 
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FIGURE  10.  BLOCK  DIAGRAM,  DIGITAL  CONTROLLER  UNIT 


intermediate  data  while  the  program  is  operating,  is  provided  by  the  random 
access  memory  (RAM). 


The  ACIAs  permit  internal  access  to  the  CPU  by  keyboard  or  phone  line  for 
troubleshooting.  They  are  coupled  through  a  cable  to  the  external  test  connector 
on  the  DCU.  The  timer  is  used  to  measure  elapsed  time  for  those  program  tests 
with  a  time  and  magnitude  requirement. 

In  the  AGLS  application,  the  CPU  board  is  directly  connected  to  the  configuration 
switch  register  by  a  separate  cable  and  connector.  The  switch  register  permits 
selection  of  program  to  select  the  level  of  automation  under  the  control  of  the 
test  director.  The  switches  are  coupled  to  the  CPU  by  the  on-board  PI A.  The 
remainder  of  the  digital  components  are  accessed  through  the  PIA  board. 

b.  Parallel  Interface  Adaptor  —  The  PIA  board  contains  eight  identical 
Motorola  6820  PIA  circuits,  each  accessing  two  8  bit  ports,  or  16  lines  of  input 
or  output  data,  coupled  through  a  ribbon  cable  to  another  interface  board.  An 
address  decoder  is  included  on  the  PIA  board,  to  indicate  which  of  the  PIA 
circuits  should  be  connected  to  the  CPU  data  bus  at  any  given  time.  The  PIA  board 
essentially  expands  the  8-line  CPU  data  bus  to  128  lines  of  input  or  output  data. 
The  PIA  board  drives  the  display  panels  data  bus  directly  through  PIA  circuit 
number  8  (Figure  10). 

c.  GACS  Interface  —  The  GACS  interface  board  connects  the  output  of  the  two 
GACS  16-Hne  command  channels  to  the  PIA  board,  using  optical  isolators  to 
separate  the  GACS  and  AGLS  ground  connections.  The  GACS  output  circuit  permits 
corresponding  lines  of  the  two  channels  to  be  connected  to  a  single  wire,  as  long 
as  only  one  channel  is  active  at  any  given  moment.  Two  optically  coupled 
isolators  are  also  provided  to  activate  the  GACS  azimuth  or  elevation  output, 
under  program  control.  The  GACS  data  is  coupled  to  PIA  circuit  number  1  (Figure 
10). 

d.  Dual  Analog  to  Digital  Converter  —  The  dual  channel  analog  to  digital 
converter  board  Is  used  to  interface  the  azimuth  and  elevation  encoder  trim 
potentiometers  Into  the  digital  system.  A  reference  voltage  of  10  volts  is 
supplied  to  each  potentiometer.  The  potentiometer  output  is  routed  to  a  buffer 
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operational  amplifier,  a  sample  and  hold  amplifier,  and  then  to  the  analog  to 
digital  converter.  The  output  of  the  eight-bit  converter  is  connected  to  PIA 
circuit  number  6  (Figure  10).  The  circuitry  is  adjusted  to  yield  a  full  eight 
bit  change  in  the  output  code  thus  permitting  a  trim  range  of  +  12.8  mils  for  ten 
turns  on  the  potentiometer. 

e.  Multiplexed  Analog  to  Digital  Converter  —  The  multiplexed  analog  to  digital 
converter  board  accepts  the  analog  error  signals  from  the  leveling  servos  and  the 
IR  tracker,  and  sequentially  converts  each  of  these  to  a  digital  signal.  The 
digital  signal  is  then  transmitted  through  optically  coupled  isolators  to  PIA 
circuit  number  5  (Figure  10)  on  the  PIA  board.  The  CPU  compares  the  digitized 
errors  to  an  acceptance  level,  to  determine  which  status  lamps  should  be  illumi¬ 
nated. 

f.  Dual  Digital  to  Analog  Converter  —  The  dual  digital  to  analog  converter 
accepts  azimuth  and  elevation  errors  calculated  by  the  CPU,  and  converts  them  to 
analog  correction  signals  to  be  applied  to  the  pantel  and  quadrant  pitch  servos. 
The  digital  errors  are  provided  by  PIA  circuit  number  7  (Figure  10),  optically 
isolated,  and  stored  in  either  the  azimuth  or  elevation  latch,  under  control  of 
commands  from  the  CPU.  The  stored  data  from  each  latch  is  applied  to  its  own  D/A 
converter,  which  generates  an  analog  signal  of  up  to  +  10  volts  full  scale, 
proportional  to  the  input  digital  error. 

9*  Power  Supply  —  The  power  supply  accepts  +28  volt  regulated  power  from  the 
system  power  supply,  and  converts  it  to  the  following  dc  voltages: 

+5  volts  -  Logic  supply 
-5  volts  -  Logic  supply 
+12  volts  -  Logic  supply 
+18  volts  -  Encoder  supply 
+20  volts  -  Analog  supply 
-20  volts  -  Analog  supply 
+20  volts  -  Isolated  analog  supply 
-20  volts  -  Isolated  analog  supply 


The  Input  direct  current  power  is  converted  to  alternating  current  by  the  in¬ 
verter  and  then  applied  to  a  transformer  with  multiple  secondary  windings.  The 
output  voltages  are  obtained  by  rectifying  the  various  transformer  voltages,  and 
then  regulating  the  +5  volt,  -5  volt,  +12  volt,  and  +18  volt  outputs.  The  +20 
volt  and  -20  volt  supplies  are  regulated  to  +15  volts  and  -15  volts  on  the 
individual  A  to  D  and  D  to  A  boards,  to  minimize  the  effects  of  system  noise  and 
provide  more  accurate  reference  voltages  at  each  board. 

2.  Chief  of  Section  Panel  (COS) 

The  chief  of  section  panel  contains  the  operating  controls  for  the  AGLS,  as  well 
as  numerical  displays  of  the  commanded  azimuth  and  elevation  data  from  the  GACS 
gun  unit,  actual  data  corresponding  to  the  counter  readings  of  the  M-117  tele¬ 
scope  and  M-15  quadrant,  and  the  respective  errors  between  commanded  and  actual 
values.  The  panel  also  contains  status  lamps  to  Indicate  acceptable  leveling  of 
the  M-15  quadrant  and  M-145  mount,  acceptable  tracker  to  GACS  RU  lock-on  (A/P), 
and  presence  of  the  RU  in  the  tracker  field  of  view  (XENON  lamp).  If  any  of  the 
above  lamps  extinguish,  the  No-Go  lamp  will  illuminate.  The  chief  of  section 
panel  Is  shown  on  Figure  11. 

This  panel  contains  a  control  to  adjust  the  display  brightness,  and  a  test  button 
to  check  proper  function  of  all  the  display  elements. 

The  following  switches  are  located  on  the  chief  of  section  panel: 

Power  —  Activates  the  system  power  supply,  digital  controller  unit, 
all  data  displays,  and  certain  other  electronic  assemblies. 

Servos  —  Activates  those  fire  control  instrument  servos  that  have  been 
previously  selected  by  the  system  configuration  switches. 

Weapon  --  Activates  the  weapon  azimuth  and  elevation  servos  If  they  have 
been  selected  by  the  configuration  switches,  and  if  certain  check  con¬ 
ditions  have  been  satisfied. 
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Figure  11.  Chief  of  Section  Panel 
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Load  Position  —  Selects  either  GACS  elevation  (down)  or  previously 
selected  load  position  (up)  to  be  the  command  to  the  weapon  elevation 
servo. 

RU  Search  —  Causes  the  panoramic  telescope  to  slew  clockwise  (right)  or 
counterclockwise  (left)  to  locate  the  GACS  Reference  Unit,  if  certain 
conditions  have  been  satisfied. 

Data  displays  on  the  chief  of  section  panel  consist  of  the  following: 

Elevation  Commanded  Data  —  The  commanded  elevation  from  the  GACS  gun 
unit  or  the  preselected  load  position. 

Elevation  Actual  —  The  elevation  value  displayed  on  the  M-15  quadrant. 

Elevation  Error  —  The  difference  between  the  two  above  values. 

Azimuth  Commanded  Data  --  The  commanded  azimuth  from  the  GACS  gun  unit. 

Azimuth  Actual  —  The  deflection  displayed  in  the  upper  counter  of  the 
M-117  telescope. 

Azimuth  Error  —  The  difference  between  the  two  above  values. 

The  panel  accepts  the  above  data  in  Binary  Coded  Decimal  (BCD)  format,  trans¬ 
mitted  bit  parallel,  character  serial  from  the  digital  controller  unit.  The 
panel  also  contains  a  power  supply  which  converts  the  regulated  28  vdc  power  to 
+5  vdc  required  by  the  display  electronics. 

3.  Gunner's  Display  Panel 

The  gunner's  display  panel  accepts  and  displays  the  same  azimuth  data  as  Is 
displayed  on  the  COS  panel.  This  panel  also  contains  a  28  volt  to  5  volt 
converter  to  energize  the  Internal  electronics.  The  gunner's  display  panel  is 
shown  in  Figure  12. 
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Gunner's  Display  Panel 
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4.  Assistant  Gunner's  Display  Panel 

The  assistant  gunner's  display  panel  accepts  and  displays  the  same  elevation  data 
as  is  displayed  on  the  COS  panel  and  contains  a  power  supply  identical  to  that 
used  by  the  gunner's  display  panel.  The  assistant  gunner's  display  panel  is 
shown  in  Figure  13. 

C.  Gun  Alignment  Control  System 

The  Gun  Alignment  Control  System  (GACS),  developed  and  manufactured  by  Aviation 
Electric  Limited,  is  used  by  the  AGLS  to  provide  an  azimuth  reference.  The  GACS 
consists  of  six  assemblies: 

1.  Command  Post  Unit  (CPU) 

2.  Command  Post  Adaptor  Unit 

3.  Converter /Adaptor  Unit 

4.  IR  Receiver 

5.  GACS  Gun  Unit 

6.  GACS  Reference  Unit 

The  GACS  establishes  an  azimuth  reference  by  using  a  rotating  laser  beam  synchro¬ 
nized  to  a  flashing  XENON  lamp.  Any  GACS  equipped  gun  can  determine  Its  azimuth 
reference  by  directing  its  IR  receiver,  mounted  on  the  panoramic  telescope, 
toward  the  reference  unit.  The  GACS  gun  unit  will  count  the  pulses  from  the 
XENON  lamp  and  observe  the  rotating  laser  to  measure  the  reference  angle.  The 
command  post  unit  will  transmit,  on  manual  command  from  the  Fire  Direction  Center 
(FDC)  fire  orders  to  the  GACS  gun  unit.  The  GACS  gun  unit  will  then  compute  the 
required  deflection  by  adding  the  reference  angle  to  the  commanded  angle.  The 
resulting  conmanded  deflection  Is  automatically  transmitted  to  the  AGLS  digital 
subsystem.  The  GACS  also  provides  a  means  of  transmitting  elevation  data  to  the 
AGLS,  and  fuse  setter  data  to  the  GACS  gun  unit  display.  The  GACS  components  are 
described  in  the  following  paragraphs. 
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1.  Command  Post  Unit 


The  command  post  unit  accepts  input  data  by  manually  set  rotary  switches.  Data 
to  be  transmitted  consists  of  deflection,  elevation,  and  fuse  setting.  After 
data  has  been  set  in,  it  is  transmitted  by  manually  activating  a  pushbutton.  A 
flashing  lamp  indicates  that  data  is  being  transmitted,  and  a  steady  lamp  indi¬ 
cates  that  the  gun  unit  has  accepted  the  transmitted  data. 

2.  Command  Post  Adaptor  Unit 

The  command  post  adaptor  unit  provides  a  means  of  coupling  the  command  post  unit 
to  either  a  phone  line  pair  or  a  radio  receiver-transmitter. 

3.  Converter /Adaptor  Unit 

The  converter/adaptor  unit,  installed  in  the  M-109,  accepts  the  commanded  data 
from  the  phone  lines  or  radio  and  couples  the  data  to  the  GACS  gun  unit.  The 
converter/adaptor  unit  also  contains  a  power  supply  to  provide  regulated 
voltages  to  the  gun  unit  and  infrared  receiver. 

4.  IR  Receiver 


The  infrared  receiver  detects  the  flashing  XENON  lamp  and  the  laser  beam  from  the 
reference  unit,  and  transmits  real-time  electrical  pulse  signals  as  these  events 
occur.  The  IR  receiver  is  mounted  with  the  AGLS  tracker  on  the  panoramic 
telescope,  as  shown  in  Figure  14. 

5.  GACS  Gun  Unit 


The  GACS  gun  unit  accepts  the  pulses  from  the  GACS  infrared  receiver  to  determine 
the  reference  angle.  It  has  the  capability  of  adding  the  reference  angle  to  the 
commanded  angle  to  compute  the  commanded  deflection.  It  also  has  three  data 
display  clusters,  to  display  azimuth,  elevation,  and  fuse  setting.  The  azimuth 
display  can  exhibit  either  commanded,  reference,  or  normal  angle  as  selected  by  a 
three  position  switch.  Also  on  the  gun  unit  are  two  lamps,  one  to  Indicate 
detection  of  the  XENON  pulses  and,  one,  the  presence  of  the  laser  beam. 


GACS  IR  Receiver  and  AGLS  Tracker 
Installed  on  M-117  Telescope 


6.  GACS  Reference  Unit 


The  GACS  reference  unit  contains  a  XENON  lamp  and  a  laser  diode.  The  laser 
rotates  one  revolution  per  second,  and  the  XENON  lamp  flashes  once  for  every  40 
mils  of  laser  beam  rotation,  and  flashes  twice  as  the  laser  rotates  through 
South.  The  reference  unit  can  be  energized  by  a  24  volt  storage  battery. 
Initial  alignment  of  the  reference  unit  is  accomplished  manually  by  using  either 
a  magnetic  compass,  or  a  monocular  sight  if  a  survey  line  is  available.  The  GACS 
reference  unit  emplaced  in  a  field  situation  showing  the  relationship  to  the 
vehicle  is  shown  in  Figure  15. 

D.  Infrared  Receiver 


The  AGLS  infrared  receiver  detects  the  flashing  XENON  lamp  of  the  GACS  reference 
unit,  and  provides  a  direct  current  positive  or  negative  signal  proportional  to 
the  horizontal  angular  position  of  the  XENON  lamp  in  the  tracker  field  of  view. 
The  tracker  is  sensitive  to  lamp  position  in  the  horizontal  axis  for  displace¬ 
ments  of  100  mils  to  the  left  and  right  of  center,  and  will  detect  the  lamp  within 
a  +  100  mil  vertical  field  of  view.  The  tracker  includes  direct  current  rejec¬ 
tion  circuits  and  an  optical  filter  to  reject  ambient  light,  and  contains  an 
automatic  gain  control  to  compensate  for  changes  in  range  from  tracker  to  refer¬ 
ence  unit.  A  one-bit  digital  output  is  also  provided  which  indicates  to  the 
digital  controller  that  the  tracker  is  detecting  the  GACS  reference  unit. 

E.  Weapon  Control  System 

The  weapon  control  subsystem  consists  of  two  channels,  each  consisting  of  an 
electrically-operated  proportional  control  servo  valve,  pressure  operated  engage 
valves,  an  electrically-operated  solenoid  valve,  a  tachometer,  and  a  controller 
module.  The  two  controller  modules  and  their  power  supply  are  contained  in  the 
Weapon  Azimuth  and  Elevation  Controller  Unit.  See  Figure  16. 

1.  Azimuth  Control  Subsystem 

The  azimuth  control  subsystem  is  shown  in  the  block  diagram  of  Figure  17.  The 
position  error  is  detected  by  the  Infrared  tracker  mounted  on  the  panoramic 
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Figure  15.  GACS  Reference  Unit  Field  Installation 


Figure  16.  Weapon  Azimuth  and  Elevation  Controller  Unit 
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telescope  head,  and  supplied  to  the  azimuth  controller  module.  The  module 
filters  the  error  signal  to  obtain  the  desired  frequency  characteristic, 
combines  the  position  signal  with  the  tachometer  velocity  signal,  and  generates 
an  output  error  signal  to  operate  the  azimuth  servo  valve. 

Hydraulic  fluid  from  the  M-109  power  pack  is  filtered  and  then  applied  through 
the  azimuth  solenoid  shut-off  valve  to  the  servo  valves,  and  also  to  the  pilot 
ports  of  the  pressure-operated  engage  valves.  The  engage  valves  will  close  upon 
removal  of  supply  pressure,  to  disconnect  the  servo  valve  and  permit  normal 
azimuth  control  with  the  gunner's  control  handle.  With  hydraulic  supply  pressure 
applied,  the  servo  valve  will  apply  hydraulic  flow  to  the  azimuth  hydraulic  motor 
in  proportion  to  the  electrical  current  from  the  controller  module.  Direction  of 
hydraulic  flow  is  determined  by  the  polarity  of  the  control  current.  Pictures  of 
the  filter,  solenoid  shut-off  valve  and  servo  valve  assembly  are  shown  in  Figures 
18,  19  and  20  respectively. 

The  hydraulic  motor  rotates  in  response  to  the  servo  valve  flow,  thus  rotating 
the  cab  to  control  weapon  azimuth.  If  the  panoramic  telescope  is  also  being 
driven,  as  is  the  case  with  the  automatic  azimuth  configuration,  the  tracker  will 
be  driven  away  from  the  GACS  reference  unit,  thereby  generating  a  position  error 
which  continues  to  drive  the  weapon  in  azimuth  until  the  telescope  has  reached 
its  commanded  deflection.  As  the  telescope  comes  to  rest,  the  cab  will  continue 
to  rotate  until  the  final  position  error,  as  measured  by  the  tracker,  has  been 
reduced  to  zero.  As  the  weapon  approaches  its  commanded  position,  the  telesocpe 
mount  will  be  automatically  leveled  and  thus  the  mount  will  insert  an  azimuth 
correction  which  compensates  for  weapon  cant  by  deflecting  the  telescope  line- 
of-sight.  This  correction  then  is  automatically  inserted  as  the  weapon  comes  to 
rest. 

A  tachometer  is  utilized  to  provide  a  signal  proportional  to  azimuth  velocity. 
This  velocity  error  signal  Is  needed  to  provide  an  indication  of  azimuth 
velocity,  so  that  the  cab  will  rotate  at  the  proper  speed,  as  the  cab  and 
telescope  both  are  driven  in  the  Automatic  Offset  mode.  The  azimuth  velocity 
signal  Is  also  used  as  a  prediction  signal  to  Improve  azimuth  stability  and 
provide  for  smooth  deceleration  as  the  weapon  approaches  the  final  position  after 
a  large  change  in  azimuth.  A  picture  of  the  tachometer  is  shown  in  Figure  21. 
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2.  Elevation  Control  Subsystem 


The  elevation  control  subsystem,  shown  in  the  block  diagram  of  Figure  22,  is 
similar  in  operation  to  the  azimuth  control  subsystem.  The  position  error  is 
detected  by  the  level  sensor  mounted  on  the  M-15  quadrant  pitch  axis  and  is 
supplied  to  the  elevation  controller  module.  Hydraulic  pressure  to  the  elevation 
engage  valves  is  applied  or  removed  by  the  elevation  solenoid  shut-off  valve. 
The  elevation  engage  valves  will  close  on  removal  of  supply  pressure,  to  discon¬ 
nect  the  servo  valve  and  permit  control  of  weapon  elevation  by  either  the  power 
control  handle  or  by  the  manual  hand  pump.  With  hydraulic  supply  pressure 
applied,  the  elevation  servo  valve  will  control  pressure  to  the  elevating 
mechanism  in  proportion  to  the  electrical  current  from  the  elevation  controller 
module,  and  polarity  of  the  pressure  is  determined  by  polarity  of  the  control 
current.  Pictures  of  the  solenoid  shut-off  valve  and  servo  valve  assembly  are 
shown  in  Figures  23  and  24  respectively. 

As  the  weapon  elevates,  the  quadrant  may  also  be  driven  away  from  level,  thus 
generating  a  position  error  which  continues  to  drive  the  weapon  until  the 
quadrant  has  reached  its  commanded  elevation.  After  the  quadrant  reaches  the 
comanded  elevation,  the  weapon  will  continue  to  elevate  until  the  position  error 
measured  by  the  level  sensor  approaches  a  null,  thus  indicating  that  the  weapon 
has  reached  the  proper  elevation.  As  the  weapon  approaches  its  final  position, 
the  quadrant  cant  servo  is  also  leveling  the  quadrant  in  cant,  so  that  the  cant 
correction  is  already  implemented  when  the  weapon  comes  to  rest  at  the  commanded 
quadrant  elevation. 

An  elevation  tachometer  is  also  provided  to  generate  an  elevation  velocity  error 
signal.  This  signal  is  needed  to  limit  the  elevation  velocity  to  a  controlled 
value  during  large  changes  in  elevation,  by  providing  additional  feedback  which 
essentially  reduces  the  Influence  of  the  position  error  signal.  The  velocity 
error  signal  also  provides  for  smooth  deceleration  and  enhanced  stability  as  the 
weapon  comes  to  rest.  A  picture  of  the  tachometer  In  the  installed  position  is 
shown  in  Figure  25. 
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Figure  23.  Elevation  Solenoid  Shut-Off  Valve 


Figure  25.  Elevation  Tachometer-Installed  on  Weapon  Trunnion 
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F.  System  Power  Supply 

The  AGLS  system  power  supply  receives  +24  volt  power  from  the  voltage  support 
battery,  and  generates  the  following  regulated  power: 

o  +32  volts  dc 
o  -32  volts  dc 
o  +28  volts  dc 

The  positive  and  negative  32  volt  supply  is  capable  of  delivering  a  total  of  10 
amperes  from  either  or  both  outputs.  These  voltages  serve  as  the  power  source 
for  the  five  servo  amplifiers  in  the  instrument  servo  controller  unit.  The 
positive  28  volt  dc  supply  is  capable  of  delivering  5  amperes  and  is  the  power 
source  for  the  digital  controller  unit,  the  chief  of  section  panel,  and  the 
gunner's  and  assistant  gunner's  display  panels.  A  picture  of  the  power  supply  is 
shown  in  Figure  26. 

The  power  supply,  shown  in  the  block  diagram  of  Figure  27,  consists  of  two 
switching  regulators,  each  controlling  power  to  an  inverter,  with  a  common  fre¬ 
quency  source.  Input  power  from  the  voltage  support  battery  is  applied  through  a 
manually  resettable  circuit  breaker  to  a  power  relay.  The  power  relay,  con¬ 
trolled  by  the  power  switch  on  the  chief  of  section  panel,  applies  power  to  the 
two  switching  regulators  and  serves  as  the  means  of  energizing  or  de-energizing 
the  AGLS  subsystems. 

The  +28  volt  regulated  output  power  is  controlled  by  two  semiconductor  power 
switches  on  assembly  A1  (Figure  27).  The  input  power  is  filtered  and  applied  to 
the  power  switches.  Each  switch  is  either  completely  on  or  off.  For  example, 
when  power  switch  U10  is  on,  current  flows  from  the  Input  filter  through  U10,  the 
inductor  LI  and  the  current  monitor  resistors  to  the  28  volt  inverter  A4.  When 
the  switch  U10  shuts  off,  the  current  flows  through  diode  DIO  through  LI  to  the 
load.  The  switching  regulator  controls  the  output  voltage  to  the  Inverter  A4  by 
adjusting  the  percentage  of  time  that  U10  Is  conducting.  Switches  U10  and  Ull 
are  essentially  In  parallel,  and  the  current  In  each  switch  is  monitored  by  the 
current  shunt  resistors  R124  and  R125.  The  pulse  width  modulator  adjusts  the 
conduction  times  to  equalize  the  current  in  each  switch. 
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COMMON 


Power  Supply 


The  output  currents  from  switches  U10  and  Ull  are  combined,  and  then  applied  to 
inverter  A4  consisting  of  transistors  Q16  and  Q17  and  transformer  Tl. 
Transistors  Q16  and  Q17  are  alternately  driven  on  and  off  each  for  slightly  less 
than  50  percent  conduction  ratio.  Since  the  two  windings  on  transformer  Tl  are 
equal,  the  inverter  essentially  doubles  the  switching  regulator  output  to  obtain 
+28  volts  output  for  +15  volts  switching  regulator  output.  The  regulated  +28 
volt  output  voltage  is  attentuated  by  the  scaling  network,  and  then  compared  with 
a  reference  voltage.  The  difference  is  amplified  by  111  and  applied  as  the  input 
to  the  pulse  width  modulator.  Thus,  the  switching  regulator  conduction  time  is 
automatically  adjusted  to  maintain  a  constant  output  voltage  as  input  voltage  and 
load  change. 

The  current  monitor  inputs  will  override  the  error  voltage  from  U1  if  either 
switch  current  exceeds  6.0  amps,  and  will  then  limit  the  switch  currents  to  6.0 
amps  each,  regardless  of  load  resistance.  This  will  limit  the  short  circuit 
current  to  6.0  amps  in  the  event  of  a  regulated  28  volt  overload,  and  prevent 
further  system  damage. 

The  +  32  volt  power  supply  is  similar  to  the  +28  volt  supply,  except  that  four 
power  switches,  U12,  U13,  U14  and  U15  on  assemblies  A2  and  A3  are  connected  in 
parallel  to  provide  the  current  to  inverter  A5.  Inverter  A5,  consisting  of 
transformer  T2  and  transistors  Q18  and  Q19,  multiplies  the  switching  regulator 
output  by  a  factor  of  2.5,  and  provides  isolation  of  the  analog  system  ground 
with  respect  to  the  M-109  power  ground.  Feedback  voltage  is  taken  from  the 
transformer,  rectified,  filtered,  and  compared  with  the  reference  voltage.  The 
difference  is  amplified  and  applied  to  the  32  volt  pulse  width  modulator  to 
control  the  conduction  ratio  of  the  power  switches.  As  in  the  +28  volt 
regulator,  current  is  measured  by  the  current  monitors  R126,  R127,  R128  and  R129 
to  balance  the  load  in  each  switch.  The  monitor  signals  also  limit  each  switch 
current  to  6.0  amps,  thereby  providing  a  limit  of  10.0  amps  on  the  total  +32  and 
-32  volt  supplies  to  prevent  power  supply  damage  in  the  event  of  a  system 
overload  or  short  circuit. 

All  control  logic  for  the  switches  and  inverters  is  provided  by  the  two  circuit 
boards  A6  and  A7.  The  sequencer  (A6)  contains  the  master  clock  for  the  switching 
regulators,  and  the  drive  amplifiers  for  both  Inverters.  The  regulator  assembly 
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A7  contains  the  control  amplifiers  for  both  basic  power  supplies,  and  the  modu¬ 
lators  and  drivers  for  all  six  power  switches.  Input  and  output  power  filters 
are  included  on  the  individual  assemblies  to  minimize  the  electrical  noise  from 
the  power  switches. 
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V. 


DESIGN  STUDY 


A.  Theory  of  Operation 

1.  Methodology 

The  Automated  Gun  Laying  System,  shown  in  block  diagram  form  in  Figure  1,  is 
configured  to  perform  the  same  fire  control  functions  as  are  now  performed 
manually.  These  functions  are  enumerated  below: 

1.  Level  telescope  pitch 

2.  Cross  level  telescope 

3.  Level  or  offset  quadrant  cant 

4.  Cross  level  quadrant 

5.  Offset  telescope 

6.  Drive  weapon  azimuth 

7.  Drive  weapon  elevation 

Basically,  the  methodology  employed  in  automating  the  M-109  was  to  retain  the 
existing  fire  control  geometry,  to  add  sensors  in  parallel  with  the  existing 
sensors  and  to  add  actuators  in  parallel  with  the  existing  manual  controls.  As 
an  example,  the  cant  level  axis  of  the  M-15  quadrant  is  shown  in  the  block 
diagram  of  Figure  6.  The  basic  quadrant  is  cross  leveled  by  the  assistant 
gunner,  who  rotates  the  cross  level  knob  while  observing  the  spirit  vial  which 
tells  him  in  which  direction  to  turn  the  knob.  In  automating  this  axis,  a  level 
sensor  is  attached  to  the  level  vial,  an  electric  servo  motor  is  coupled  to  the 
knob  through  gearing,  and  a  power  amplifier  converts  the  level  sensor  output 
voltage  to  a  current  sufficient  to  drive  the  motor. 

2.  Fire  Control  Servos 


All  of  the  fire  control  servos  can  be  represented  by  the  basic  block  diagram  of 
Figure  28.  The  basic  servo  system  utilizes  the  concept  of  inner  loop  velocity 
feedback,  with  a  tachometer  closely  coupled  to  the  actuator  to  accurately  measure 
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actuator  movement  while  minimizing  the  effects  of  backlash  and  mechanical  com¬ 
pliance. 

The  drive  torque  for  each  axis  is  provided  by  a  motor-tachometer,  shown  in  Figure 
29,  consisting  of  a  direct  current  torque  motor,  with  a  dc  tachometer  closely 
coupled  on  the  same  shaft.  A  motor  was  selected  which  had  sufficient  power  to 
drive  each  of  the  instrument  servos,  as  shown  in  the  listed  requirements  of  Table 
I.  In  the  two  quadrant  and  two  telescope  mount  axes,  a  gear  ratio  of  20  to  1  was 
used,  and  a  ratio  of  10  to  1  was  used  in  the  telescope  azimuth  axis.  Although  the 
gearing  did  increase  the  mechanical  complexity  of  the  servo  drivers,  it  did 
permit  use  of  a  much  smaller  and  lighter  motor,  thus  resulting  in  less  total 
actuator  weight. 

The  motor  and  tachometer  are  coupled  by  a  steel  shaft  with  no  linkages,  thus  the 
only  dynamic  element  separating  the  motor  and  tachometer  is  a  torsional 
resonance,  estimated  to  be  in  excess  of  10,000  Hertz.  The  remaining  dynamic 
effect  is  the  simple  first  order  expression  for  a  dc  motor,  with  a  time  constant 
determined  by  motor  inertia,  torque  constant,  and  armature  circuit  resistance. 
Actual  motor-tachometer  data  from  the  quadrant  cant  axis  is  shown  in  Figure  30, 
and  does  exhibit  the  predicted  dynamic  performance.  With  an  actuator  and  feed¬ 
back  sensor  exhibiting  dynamic  characteristics  approaching  the  ideal,  it  is 
possible  to  utilize  high  gain  in  the  inner  servo  loop.  The  inner  loop  con¬ 
trollers,  identical  for  all  five  fire  control  servos,  can  then  control  motor 
shaft  rotation  to  achieve  very  low  residual  error  in  response  to  the  outer  loop 
sensor. 

While  the  tachometer  provides  the  short  term  corrections  for  actuator  control, 
the  outer  feedback  loop  Is  used  with  a  position  sensor  to  drive  the  system  to  the 
desired  null  position.  The  outer  loop  then  can  be  considered  as  a  trimming 
control,  which  monitors  the  at-rest  position,  compares  It  with  the  commanded 
position,  and  applies  a  correction  signal  to  drive  the  Inner  loop  and  ultimately 
correct  the  load  position. 
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TABLE  I 


Fire  Control  Instrument  Servo  Performance  Parameters 


Servo  Axis 

Required 
Load  Torque 
(Maximum) 

Required 
Load  Speed 

Gear  Ratio 

Calculated 
Knob  Torque 
@  Gear  Ratio 
(Maximum) 

Calculated 
Knob  Speed 
@  Load  Torque 
(Maximum) 

Telescope 

Azimuth 

9.0  lb-in 

150  RPM 

125  mils/sec 

10:1 

46.9  lb-in 

161.6  RPM 

134.7  mils/sec 

Mount 

Pitch 

25.0  lb-in 

57  RPM 

40  mils/sec 

20:1 

93.8  lb-in 

73.3  RPM 

51  mils/sec 

Mount 

Cant 

12.0  lb-in 

71  RPM 

40  mils/sec 

20:1 

93.8  lb-in 

87.2  RPM 

49  mils/sec 

Quadrant 

Pitch 

20.0  lb-in 

60  RPM 

100  mils/sec 

20:1 

93.8  lb-in 

78.7  RPM 

131  mils/sec 

Quadrant 

Cant 

18.0  lb-in 

60  RPM 

100  mil  s/sec j 

20:1 

93.8  lb-in 

80.8  RPM 

135  mils/sec 
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3.  Position  Sensors 


Three  different  types  of  position  sensors  are  used  in  the  AGLS  fire  control 
servos,  depending  on  the  system  requirements  of  the  particular  servo.  Level 
sensing  is  accomplished  with  accelerometers,  shaft  position  is  measured  with 
digital  encoders,  and  the  position  error  of  the  panoramic  telescope  is  measured 
with  an  infrared  tracker;  each  of  these  is  described  in  the  following  paragraphs. 

a.  Level  Sensor 


Level  sensing  is  accomplished  by  a  GG326  accelerometer  built  by  Honeywell 
Avionics  Division.  This  accelerometer  is  mounted  with  its  sensitive  axis  in  the 
horizontal  plane,  parallel  to  the  level  vial  of  the  axis  to  be  leveled.  In  this 
orientation,  the  accelerometer  senses  local  gravity,  and  will  provide  a  positive 
or  negative  dc  signal  proportional  to  the  angular  displacement  from  level. 

Figure  31  is  a  schematic  view  of  the  GG326  Accelerometer. 

The  pendulum  and  torsional  suspension  is  fabricated  from  quartz  fiber.  A  thin 
coating  of  metal  is  vapor-deposited  over  the  length  of  the  suspension  and  pendu¬ 
lum,  providing  a  conducting  surface.  The  base  of  the  pendulum  is  positioned  in  a 
permanent  magnet  field  so  that  current  flowing  in  the  pendulum  circuit  acts  as  a 
one-turn  torque  generator. 

The  optical  pickoff  consists  of  a  miniature  tungsten  filament  lamp  and  a  silicon 
pn  junction  photodiode.  The  p-layer  of  the  photodiode  is  divided  into  equal 
parts  with  a  0.003  inch  separation.  At  the  null  position,  the  base  of  the 
pendulum  coincides  with  the  slot  In  the  photodiode. 

An  acceleration  input  will  cause  the  pendulum  to  deflect  from  the  null  position, 
increasing  the  amount  of  light  incident  on  one-half  of  the  photodiode  while 
decreasing  the  light  on  the  other  half.  The  light  unbalance  produces  a  differen¬ 
tial  voltage  signal  at  the  output  of  the  photodiodes.  The  photodiode  signal  is 
amplified  and  fed  back  to  the  torque  generator  In  the  proper  phase  to  restore  the 
pendulum  to  the  null  position.  The  rebalance  current  Is  directly  proportional  to 
the  input  acceleration  and  is  converted  to  a  voltage  by  a  series  resistor. 


LAMP 


Figure  31.  Schematic  Diagram,  GG326  Accelerometer 
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A  significant  feature  of  the  GG326  accelerometer  is  the  low  elastic  restraint  of 
the  quartz  fiber  suspension.  This  restraint  is  0.5  g/radian  (g/rad),  compared  to 
2  to  3  g 's/rad  for  metal  flexure  pivots  or  torsional  suspension.  Since  the  dual 
photodiode  is  fabricated  from  a  single  silicon  chip,  the  output  voltages  of  the 
two  halves  closely  track  with  temperature.  Any  photodiode  deviations  have  a 
small  effect  on  accelerometer  null  bias  due  to  the  low  elastic  restraint. 

The  pendulum  assembly  is  mounted  in  a  hermetically  sealed  aluminum  housing.  The 
housing  is  filled  with  a  low  viscosity  silicon  fluid  to  control  the  dynamic 
characteristics  of  the  accelerometer.  The  electronics  assembly  is  designed  to 
accept  the  terminals  from  the  sensor  and  is  bonded  directly  to  the  sensor 
housing.  A  hermetically  sealed  cover  over  the  electronics  assembly  provides  the 
electrical  terminations  for  the  accelerometer,  as  well  as  the  protection  against 
humidity  and  other  destructive  environments. 

Since  the  accelerometer  will  sense  lateral  acceleration  as  well  as  the  accelera¬ 
tion  of  gravity,  its  dynamic  characteristics  must  be  considered.  The  accelero¬ 
meter  is  considered  to  be  off  the  axis  of  rotation  for  a  given  leveling  applica¬ 
tion,  by  a  distance  R.  This  displacement  includes  physical  distance  due  to 
design  constraints  of  the  fire  control  instrument,  internal  displacement  of  the 
sensitive  element  of  the  accelerometer  from  its  mounting  face,  as  well  as  un¬ 
knowns  in  the  actual  location  of  the  rotational  center.  The  relationship  of 
accelerometer  location  with  respect  to  axis  rotation  can  take  four  forms,  as 
shown  in  Figure  32.  In  all  cases,  the  rotation  9  is  considered  positive  when 
rotation  is  in  the  counterclockwise  direction. 

In  form  (a),  the  accelerometer  output  V.  is  equal  to 

Q 

d^Q 

Va  =  Ka  (g  sin  9  +  R  ^-f) 

dt 

where  the  first  term  is  due  to  the  angular  deviation  from  level  when  the  acceler¬ 
ometer  is  at  rest,  and  the  second  term  is  due  to  lateral  displacement  when  the 
axis  in  question  is  being  rotated.  There  will  also  be  a  centripetal  accelera¬ 
tion  applied  to  the  accelerometer  In  a  direction  toward  the  center  of  rotation, 
but  this  term  will  not  cause  an  accelerometer  output  since  it  is  not  in  the 
direction  of  the  sensitive  axis. 
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(c)  (d) 


Figure  32.  Accelerometer  Locations 
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The  accelerometer  will  be  used  in  a  nulling  application  where  the  angle  9is 
small,  thus  permitting  the  approximation  sin  9  =  9.  Then  the  expression  for  the 
output  V  can  be  further  reduced  to 

a 

V  =  K  (g  9  +  R^f) 

3  3  dt^ 

In  Laplace  transform  form,  the  above  expression  becomes 

V,(S)  R  2 

-fey  ■  Ka90(l  +  I  S2) 

For  S  =  j  ,  it  can  be  seen  that  the  above  transfer  function  is  equal  to  K  g  for 
much  less  than  ^  ,  and  is  equal  to  -KaR  c  for  much  greater  than  At 
=  +  ^  ,  the  transfer  function  goes  to  zero.  This  transfer  function  thus  contains 
a  pair  of  complex  zeros  at  =  +  ^  .  The  leveling  loop  frequency  response 
measured  during  the  accelerometer  placement  study,  shown  in  Figure  33,  is  repre¬ 
sentative  of  the  complex  zeros  as  derived  above. 

Form  (c)  accelerometer  placement  will  result  in  a  similar  expression,  with  both 
signs  negative. 

The  transfer  function  of  a  form  (b)  accelerometer  placement  is: 

d29 

Va  =  Ka  (g  sin  9  -  R^-|) 
dt 

which  when  reduced  becomes: 


Va(S> 

urar 


ka9  u  -|s2i 


This  transfer  function,  for  much  less  than  ^  ,  is  equal  to  Kag,  as  in  form 
(a).  However,  for  much  larger  than  ^  ,  the  transfer  function  becomes  +KaR  2 
and  does  not  change  sign  as  form  (a)  did.  The  roots  of  this  expression  are  real, 
at  =  ±  f •  The  frequency  response  of  Figure  34  is  an  example  of  this- configura¬ 
tion. 
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5  QUADRANT  CANT  AXIS  ACCELEROMETER  OPEN  LOOP  FREQUENCY  RESPONSE.  ACCELEROMETER  MOUNTED  ON 

TOP  SURFACE  OF  THE  CANT  AXIS  DRIVE 


Form  (d)  accelerometer  placement  will  result  in  a  similar  expression,  except  with 
reversed  polarity. 

Thus,  it  can  be  seen  that  the  dynamic  response  of  each  servo  mount  can  be 
affected  by  the  location  of  the  accelerometer.  Additional  factors  affecting 
servo  response  include  the  inertia  and  compliance  of  each  of  the  individual  servo 
axes.  Thus,  a  different  set  of  compensation  networks  is  needed  to  accommodate 
the  dynamic  characteristics  of  each  of  the  five  instrument  servos. 

b.  Encoder 


In  the  automatic  offset  mode,  the  telescope  azimuth  servo  and  the  quadrant  pitch 
servo  must  be  driven  to  a  given  deflection,  as  indicated  by  their  respective 
mechanical  counters.  To  sense  the  actual  deflection  of  these  instruments, 
digital  encoders  are  coupled  to  the  input  shafts  through  precision  gears.  It  was 
determined  that  the  input  knob  scale  factor  will  be  100  mils  per  turn  for  the 
quadrant,  and  50  mils  per  turn  for  telescope. 

The  required  range  of  operation  is  zero  to  6399  mils,  and  it  was  decided  to 
measure  in  0.1  mil  Increments  to  achieve  good  system  accuracy,  resolution,  and 
stability.  Thus,  an  encoder  was  needed  that  had  a  full  count  capacity  of  0  to 
63,999.  Vendor  surveys  revealed  that  the  best  method  of  achieving  the  required 
count  range  in  an  acceptable  size  was  to  use  a  two-disk  encoder. 

The  encoder  used  in  the  AGLS  has  one  disk  driven  directly  by  the  encoder  shaft, 
and  a  second  disk  driven  by  gears.  The  direct  or  high  speed  disk  measures  one 
complete  shaft  revolution  as  1000  counts,  while  the  slow  speed  disk  advances  one 
count  for  every  Input  shaft  revolution  from  zero  to  63.  After  reaching  a  count 
of  63,  the  slow  speed  disk  advances  to  zero.  The  data  output  from  the  slow  speed 
disk  is  synchronized  to  the  data  from  the  high  speed  disk  so  that  all  numbers 
change  state  at  the  same  time.  As  an  example,  when  changing  from  599.9  to  600.0, 
the  hundreds  digit  (5  or  6)  will  be  generated  by  the  slow  speed  disk,  while  the 
other  digits  (99.9  or  00.0)  will  be  generated  by  the  high  speed  disk.  The 
synchronizing  circuitry  will  prevent  the  number  699.9  from  being  output  during 
the  transition  from  599.9  to  600.0  if  backlash  or  mechanical  errors  should  exist 
within  the  encoder. 
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The  encoder  data  is  accepted  by  the  digital  controller  unit,  and  used  to  deter¬ 
mine  magnitude  and  polarity  of  the  correction  signal  to  be  applied  to  the  instru¬ 
ment  servo.  The  encoder  data  is  also  applied  to  the  digital  displays,  to 
indicate  actual  quadrant  and  telescope  counter  readings. 

The  digital  controller  unit  uses  simple  arithmetic  to  subtract  the  encoder  value 
from  the  input  commanded  value,  except  that  the  error  is  checked  to  determine 
whether  it  is  larger  than  3200  mils.  If  larger,  the  error  is  subtracted  from 
6400  mils,  so  that  the  weapon  is  always  driven  to  null  by  the  shortest  path.  The 
digital  value  is  then  converted  to  an  analog  signal.  All  servo  compensation  and 
control  manipulation  is  performed  by  the  analog  servo  subsystems. 

c.  Infrared  Tracker 


The  infrared  tracker  detects  the  flashing  XENON  light  from  the  GACS  reference 
unit,  and  provides  an  analog  output  voltage  proportional  to  the  displacment  of 
the  XENON  lamp  from  the  center  of  the  tracker  field  of  view.  The  AGLS  tracker 
shown  in  Figure  35,  consists  of  three  major  subsystems;  the  optics,  the  sensors 
and  the  electronics. 

Optics 

The  optical  system  utilizes  a  50.8  millimeter  focal  length,  50.8  millimeter 
diameter  Fresnel  lens  to  gather  the  XENON  energy  and  focus  it  on  to  the  detector. 
An  optical  filter  with  a  passband  from  820  to  893  nanometers  at  50  percent 
transmission  is  placed  between  the  lens  and  the  sensor  to  reduce  the  ambient 
light  level  while  permitting  the  infrared  energy  to  pass  through.  Reducing  the 
ambient  light  level  will  correspondingly  reduce  the  ambient  current  through  the 
sensor,  and  will  help  to  minimize  the  noise  output. 

Sensor 


The  sensing  element  of  the  IR  tracker  is  a  lateral  effect  photodiode,  shown  in  a 
cross  section  In  Figure  36.  The  scene.  Including  the  XENON  lamp.  Is  focused  on 
the  sensor.  For  purposes  of  Information,  assume  that  the  scene  is  not  present 
and  that  only  the  lamp  is  visible.  When  the  XENON  lamp  flashes,  the  photons  from 
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the  lamp  image  generate  electron  hole  pairs  in  the  depletion  region.  Holes  are 
attracted  to  the  P-region  and  annihilated  in  the  gold  film,  while  the  electrons 
are  injected  into  the  high  resistance  bulk  silicon  N-region. 

The  electrons  travel  to  the  two  back  contacts  as  a  function  of  the  distance  to 
those  contacts.  For  a  point  image  located  L  distance  from  one  edge  of  the 
sensor  L  distance  wide,  the  current  out  of  the  reference  contact  will  be  (1  -  ) 
I,  and  the  current  out  of  the  other  contact  will  be  I,  where  I  is  the  total 
current.  The  difference  signal  will  be 

Is  =  Kl-2  ) 

The  sum  signal  is  equal  to  I,  the  total  current,  which  is  equal  to  the  total 
current  generated  due  to  the  XENON  lamp  energy.  If  the  difference  signal  is 
divided  by  the  sum  signal,  the  resulting  signal 


is  independent  of  XENON  energy. 

If  the  scene  is  now  focused  onto  the  detector,  the  difference  signal  will  repre¬ 
sent  the  centroid  of  brightness.  The  signal  from  the  scene  will  be  present  as  a 
steady  or  slowly  changing  bias  upon  which  the  XENON  pulses  are  riding.  Since  the 
scene  energy  can  be  orders  of  magnitude  larger  than  the  XENON  energy,  this  bias 
must  be  removed. 

The  electrons  generated  by  the  photon  energy  are  generated  by  a  linear  process. 
That  is,  there  is  a  fixed  ratio  of  optical  energy  to  current  flow,  and  this 
relationship  holds  for  many  orders  of  magnitude.  The  gain  of  the  Schottky  sensor 
used  In  the  AGLS  tracker  Is  approximately  0.4  amps  per  watts  at  the  XENON  IR 
wavelength.  The  linear  responslvity  of  the  detector  permits  detection  by  removal 
of  the  ambient  signal. 

As  discussed  above,  the  difference  signal  should  be  divided  by  the  sum  signal  to 
normalize  the  tracker  output.  However,  divider  circuits  usually  exhibit 
problems  in  linearity,  offset  and  frequency  stability.  The  Automatic  Gain 
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Control  (AGC)  technique  used  in  the  AGLS  tracker  is  to  process  both  the  differ¬ 
ence  and  the  sum  signals,  and  to  multiply  both  signals  by  the  same  gain.  The 
resulting  sum  signal  is  then  compared  with  a  reference  voltage  and  the  difference 
is  used  to  adjust  the  gain  of  both  channels.  The  sum  signal  is  thereby  kept 
constant  over  varying  range  and  XENON  light  output.  The  difference  signal  output 
then  becomes 

Is  =  Io  (1-2  ) 
where  Io  is  a  constant. 

Electronics 


The  tracker  electronic  circuitry  shown  in  the  block  diagram  of  Figure  37,  accepts 
the  two  sensor  signals,  corrects  for  ambient  light  and  changes  in  XENON  energy, 
and  generates  a  positive  or  negative  direct  current  signal  proportional  to  the 
XENON  position.  The  major  circuit  elements  consist  of  the  preamplifier,  the 
switched  AGC,  the  integrator,  the  sample  and  hold  amplifier  (S/H),  the  variable 
AGC,  and  the  output  amplifier,  as  described  in  the  following  sections. 

Preamplifier 

The  basic  tracker  performance  limiting  characteristic  is  the  fundamental  noise 
of  the  preamplifier.  Discussions  with  the  sensor  manufacturer  and  contractor 
engineers  who  have  had  experience  in  low  noise  amplifiers  have  verified  this 
conclusion.  Because  of  the  low  power  level  of  the  XENON  lamp,  the  effect  of  the 
noise  will  be  an  increased  tracker  output  noise,  or  jitter,  as  range  from  tracker 
to  XENON  lamp  is  Increased.  The  preamplifier  consists  of  a  high  gain,  high 
frequency  amplifier,  and  a  means  of  removing  the  dc  and  low  frequency  components 
of  the  sensor  output.  The  dc  component  results  from  the  ambient  light  of  the 
scene,  caused  primarily  by  sunlight.  Some  of  this  energy  can  be  reduced  by  use 
of  the  optical  bandpass  filter.  However,  there  will  be  steady  state  light  energy 
In  the  wavelength  of  the  XENON  flashes,  so  dc  removal  circuits  must  still  be 
Included. 
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By  choosing  the  frequency  at  which  the  dc  removal  circuit  is  not  effective,  low 
frequency  rejection  is  also  achieved,  thus  reducing  sensitivity  to  moving  bright 
spots  in  the  scene.  Low  frequency  rejection  also  reduced  the  bandwidth  which 
reduces  the  overall  noise  of  the  preamplifier. 

The  preamplifier  shown  in  the  schematic  diagram  as  Figure  38,  consists  of  two 
transconductance  amplifiers  U1  and  U2,  a  difference  amplifier  U3,  and  a  sum 
amplifier  U4.  The  transconductance  amplifiers  change  the  current  outputs  of  the 
sensor  to  voltages  which  can  be  further  processed.  The  two  outputs  are  sub¬ 
tracted  by  U3  to  obtain  a  difference  signal,  while  the  two  outputs  are  added  by 
U4  to  obtain  a  sum  signal. 

The  transconductance  amplifiers  each  consist  of  a  second  order  low-pass  active 
filter.  While  it  might  appear  that  a  short  pulse  would  be  "lost"  in  a  low  pass 
amplifier,  it  must  be  noted  that  the  low  pass  amplifier  will  output  a  pulse  equal 
in  volt-time  integral  to  that  of  the  input  pulse,  times  the  gain  of  the  circuit. 
Since  the  integrator  will  determine  the  integral,  nothing  in  the  signal  is  lost 
by  going  through  a  low  pass  filter.  However,  reducing  the  magnitude  of  the  pulse 
will  permit  more  gain  to  be  used  in  the  preamplifier,  thereby,  reducing  the  noise 
effects  of  the  remaining  circuitry.  The  integrator  gain  can  be  reduced  to 
maintain  the  same  overall  gain.  But  the  most  Important  improvement  is  the 
reduction  in  bandwidth,  which  will  reduce  the  value  of  the  root  mean  square  (rms) 
noise  of  the  circuit. 

To  accomplish  dc  rejection,  the  output  of  transconductance  amplifier  U1  is  low- 
pass  filtered  to  remove  the  XENON  pulse  signal  and  detect  the  remaining  steady 
state  or  slowly  varying  signals.  The  signal  Is  then  amplified  by  the  dc  rejec¬ 
tion  amplifier  U5  and  converted  by  R1  to  a  current  which  essentially  cancels  the 
steady  state  input  current  from  the  sensor.  The  same  process  Is  used  by  ampli¬ 
fier  U6  and  resistor  R21  to  remove  the  ambient  signal  from  the  output  of  ampli¬ 
fier  U2. 

The  outputs  of  amplifiers  U1  and  U2  are  then  subtracted  and  amplified  by  differ¬ 
ence  amplifier  U3.  Amplifier  U4  accepts  the  U1  and  U2  outputs,  and  amplifies  the 
sum  of  the  two.  The  sum  and  difference  outputs  are  then  applied  to  the  switched 
AGC  amplifiers. 
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AG C  Amplifier 


Two  concepts  for  AGC  were  considered.  A  digitally  selected  gain  control  which 
would  change  gain  by  selecting  sets  of  input  and  feedback  resistors,  or  a  solid 
state  multiplier  which  would  multiply  the  pulse  by  a  dc  control  voltage. 


The  digital  AGC  is  more  accurate,  but  would  not  provide  sufficient  resolution. 
For  example,  a  gain  range  of  at  least  100  to  1  is  needed.  If  performed  in 
geometrically  uniform  steps,  two  amplifier  sets  with  four  gain  steps  per  set 
could  achieve  the  gain  range  with  a  step  ratio  R,  where: 


p  _  40  db 

16  steps 


=  2.5  db 


or 


R  =  1.333 

Thus,  an  AGC  resolution  error  of  +16%  could  be  expected  using  the  completely 
digital  AGC.  The  solid  state  multiplier  approach  would  be  a  less  complex  circuit 
and  would  have  essentially  infinite  resolution.  However,  the  basic  accuracy  of 
the  multiplier  over  a  dynamic  range  of  100  to  1  may  affect  the  tracking  of  the  two 
AGC  amplifiers.  It  was  then  decided  to  utilize  both  switched  and  continuously 
variable  AGC,  to  benefit  from  the  advantages  of  each  approach.  A  total  gain  span 
of  IX  to  100X  is  needed  to  a  50  to  500  meter  range.  To  accommodate  such  a  large 
span,  a  switched  gain  amplifier  having  gains  of  1,  4,  16  and  64  is  the  primary 
gain  control  amplifiers,  and  an  analog  divider  will  be  used  to  achieve  better 
resolution  over  a  limited  span  of  approximately  6  to  1. 

The  switched  amplifier,  shown  in  Figure  39,  uses  a  programmable  amplifier  (PRAM) 
consisting  of  four  preamplifiers  which  are  selected  by  digital  control  of  the  two 
address  lines.  Each  preamplifier  is  connected  to  a  resistor  network  to  provide  a 
specific  gain.  A  given  digital  value  on  the  two  address  lines  will  select  a 
certain  preamplifier,  and  thus  provide  the  desired  gain.  The  digital  values  are 
established  by  a  separate  control  circuit  through  interaction  with  the  linear  AGC 
amplifier. 
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Figure  39.  Gain  Control 


Integrator 


The  following  description  of  the  integrator  for  the  sum  channel,  shown  in  Figure 
40,  will  also  apply  to  the  difference  channel,  since  the  two  circuits  are  iden¬ 
tical  . 

The  sum  signal  is  applied  through  capacitor  Cl  to  the  quad  switch  SI.  Prior  to 
the  start  of  the  XENON  flash,  terminals  1  and  2  are  shorted  to  connect  the  output 
side  of  Cl  to  the  ground.  This  causes  Cl  to  charge  to  the  direct  current  (dc) 
level  of  the  sum  signal.  This  voltage  will  then  be  subtracted  from  the  video 
signal,  effectively  removing  any  remaining  dc  bias  from  the  input  signal. 

To  ensure  that  the  integrator,  Ul,  begins  its  integration  at  zero  volts, 
terminals  8  and  9  are  shorted,  providing  feedback  around  the  integrating  capa¬ 
citor,  C2. 

When  a  XENON  flash  occurs,  the  sum  signal  initiates  the  timing  and  logic  neces¬ 
sary  to  operate  the  switch  drivers.  The  first  step  is  to  open  contact  1  to  2,  and 
8  to  9,  and  to  close  contact  3  to  4.  The  signal  then  flows  through  to  the 
integrator  input  resistor  Rl,  and  the  signal  is  integrated  for  the  selected  time 
duration.  The  second  step  is  to  open  switch  contacts  3  to  4,  and  close  contacts 
10  to  11,  thus  applying  a  zero  input  to  the  integrator  for  a  hold  period.  During 
this  time,  the  integrator  output  is  sampled  by  the  sample-and-hold  circuit. 

After  the  sample  has  been  stored,  the  contacts  10  to  11  open,  contacts  8  to  9 
close  to  reset  the  integrator,  and  contacts  3  to  4  close  to  restore  the  dc  input 
level.  The  circuit  is  now  ready  to  accept  another  input  pulse. 

Sample  and  Hold  Amplifier 

A  sample  and  hold  amplifier  is  used  to  accept  the  integrator  output  and  to  storf 
this  signal  until  the  signal  from  the  next  pulse  has  been  measured.  T*w  s«ap<r 
and  hold  output  is  then  a  continuous  dc  signal,  with  step  transit •*  *•* 
tracker  should  be  moving  with  respect  to  the  reference  unit. 
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Continuous  AGC  and  Output  Filter 


The  sum  sample  and  hold  output  is  then  applied  to  a  pulse-modulated  switch  which 
either  passes  the  signal  when  ON,  or  blocks  the  signal  when  OFF.  The  ON  to  total 
period  ratio  is  under  control  of  a  pulse  width  modulator.  The  average  output  of 
the  switch  is  then 


where 


'sw 


ton 
=  T~ 

es/w 

eS/H 

ton 

T 


*  eS/H 

=  average  switch  output  voltage 

=  sum  sample  and  hold  output 

=  on  time  of  the  modulated  switch 
=  period  of  switch  frequency 


The  switch  output  is  filtered  and  subtracted  from  a  reference  voltage,  and  the 
difference  is  amplified  and  applied  to  a  pulse  width  modulator.  Since  the  pulse 
width  modulator  controls  the  switch  conduction  time  ratio,  a  closed  loop  exists 
to  maintain  the  sum  signal  at  a  constant  value.  The  same  conduction  time  ratio 
is  then  used  to  modulate  the  difference  sample  and  hold  amplifier,  to  adjust  the 
difference  signal  for  changes  in  XENON  intensity.  The  switched  multiplier  con¬ 
trols  over  a  dynamic  range  of  about  6.0  to  1.0. 

The  control  scheme  is  to  amplify  both  the  sum  signal  and  the  difference  signal  by 
the  same  gain,  and  to  integrate  both  signals  by  identical  circuits.  The  sum 
sample  and  hold  signal  is  then  monitored  if  it  is  lower  than  1.0  volt,  the 
digital  address  is  advanced  one  count  increasing  the  gain  by  a  factor  of  4.0. 
After  a  short  time  delay,  the  sum  signal  is  rechecked.  If  it  is  still  less  than 
1.0  volt,  the  count  will  be  advanced  again,  and  rechecked.  The  process  will 
continue  until  the  sum  signal  is  in  the  acceptable  region,  or  until  maximum  gain 
has  been  reached.  The  reverse  process  is  applied  if  the  sum  sample  and  hold 
signal  is  too  high.  In  this  case.  If  the  signal  is  more  than  6.0  volts,  the  gain 
address  is  reduced  one  count,  which  causes  the  switch  AGC  amplifier  to  reduce  the 
gain  by  a  factor  of  4.0.  The  range  of  acceptable  input  voltage  has  been  estab¬ 
lished  as  greater  than  4  to  1  to  avoid  oscillations  which  might  otherwise  occur 
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if  the  sample  and  hold  output  should  be  close  to  the  threshold  value,  and  thus 
alternately  advancing  and  retracting  the  gain  by  one  count. 

The  difference  sample  and  hold  signal,  after  being  multiplied  by  the  AGC  conduc¬ 
tion  ratio,  is  then  amplified  and  filtered  by  a  5  Hertz  active  filter.  The 
resulting  tracker  output  is  then  transmitted  by  wiring  harness  to  the  Instrument 
Controller  Unit. 

Sequencer 


A  sequencer  circuit  is  included  to  trigger  the  integrators  and  sample  and  hold 
amplifiers  in  response  to  the  leading  edge  of  the  XENON  pulse.  A  digital  output 
from  the  sequencer  also  indicates  when  no  pulses  are  being  detected.  This  one- 
bit  output  is  used  by  the  Digital  Controller  Unit  to  determine  what  control  mode 
should  be  permitted  or  implemented. 

A  timing  diagram  for  the  tracker  sequencer  is  shown  in  Figure  41.  Since  the 
tracker,  mounted  in  the  M109,  does  not  have  any  electrical  connection  to  the  GACS 
reference  unit,  the  tracker  must  synchronize  itself  by  detecting  the  leading  edge 
of  the  XENON  pulse.  This  is  accomplished  by  applying  the  sum  amplifier  pulse 
output  to  the  comparator  and  then  to  a  series  of  six  monostable  multivibrators. 

Time  TQ  is  triggered  by  the  sum  amplifier  output  pulse,  which  then  triggers  Tj. 
During  time  TQ  the  integrator  reset  switch  8-9  and  the  input  dc  restoration 
switch  1-2  are  opened,  and  they  are  both  closed  during  the  remaining  time. 
During  time  Tj,  which  envelopes  the  XENON  pulse,  the  switch  3-4  is  closed  to 
apply  the  sum  and  difference  pulses  to  their  respective  integrators.  At  the  end 
of  time  Tp  timer  T?  is  triggered  to  actuate  the  switch  10-11  which  holds  the 
Integrator  input  to  zero,  and  to  enable  the  sample  and  hold  amplifier.  After  T2 
goes  low,  the  sample  and  hold  switch  opens,  but  the  Integrator  output  is  held  to 
assure  no  S/H  loss  while  the  switch  is  opening.  When  TQ  goes  low,  the  Integrator 
resets,  and  the  dc  restoration  of  the  input  coupling  capacitor  Is  initiated. 
Timer  Ts,  also  triggered  by  the  leading  edge  of  TQ,  is  used  to  block  further 
trigger  Inputs  to  timer  TQ  for  approximately  4  milliseconds.  This  will  prevent 
the  tracker  from  being  triggered  by  bright  flashes  that  are  not  synchronous  with 
the  160  Hertz  XENON  lamp. 
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Timer  is  triggered  from  the  trailing  edge  of  T^,  and  is  used  to  clock  the 
address  counter  for  the  switched  AGC  amplifier.  The  trailing  edge  of  the  T^ 
pulse  triggers  a  timer  T^,  which  is  10  milliseconds  long.  Since  timer  TL  is 
retriggerable,  its  output  will  stay  high  if  it  is  triggered  before  10  milli¬ 
seconds  have  elapsed.  Since  the  GACS  reference  units  (RU)  pulses  are  6.25 
milliseconds  apart,  TL  will  stay  high  as  long  as  XENON  pulses  continue  to  be 
present.  If  XENON  pulses  should  cease,  timers  T^  and  T^  will  form  a  free-running 
clock  to  permit  changes  in  AGC  address,  and  ultimately  to  drive  the  switched  AGC 
amplifier  to  maximum  gain. 

System  Power  Distribution 

Electrical  power  for  the  AGLS  components  is  provided  by  the  vehicle  +28  volt  dc 
system  through  a  filter  inductor  as  shown  in  Figure  42.  A  battery  with  charger 
and  disconnect  circuitry  is  provided  to  maintain  input  voltage  during  electrical 
transients  caused  by  hydraulic  pump  cycles,  slip  ring  noise  and  engine  starting. 
Another  battery  provides  steady  power  for  the  GACS  power  supply. 

The  system  power  supply  accepts  power  from  the  voltage  support  battery,  and 
employs  a  switching  regulator  inverter  and  rectifiers  to  provide  regulated  +28 
volt  dc  power  for  the  digital  components.  A  second  regulator  and  inverter 
provides  +32  volt  and  -32  volt  power  for  the  instrument  controller  unit.  Opera¬ 
tion  of  the  system  power  supply  is  described  in  Section  IV. 

5.  Gun  Alignment  Control  System  Theory  of  Operation 

In  laying  indirect  fire  artillery  weapons  systems  we  are  concerned  with  the 
azimuth  angle  from  an  arbitrary  aiming  point  to  the  target.  As  shown  in  Figure 
43,  this  angle,  defined  as  the  NORMAL  angle,  has  two  components;  the  target  grid 
bearing  or  azimuth  angle  and  the  reverse  grid  bearing  or  reference  angle,  from 
the  weapon  sight  to  the  aiming  point.  The  azimuth  angle  is  specified  by  the  Fire 
Direction  Center  while  the  reference  angle  is  determined  by  the  weapon  laying 
equipment. 

Gun  Alignment  Control  System  (GACS)  provides  a  simplified  method  of  conwuni- 
cating  the  weapon  position-dependent  reference  angle  to  the  weapon.  The  GACS 
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GACS 


Figure  42.  AGLS/GACS  Power  Distribution 
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reference  unit  contains  a  solid  state  laser  telescope  which  emits  a  narrow  beam 
of  infra-red  radiation  approximately  0.3  milliradians  in  width  and  300  milli- 
radians  in  height  and  an  XENON  lamp  which  radiates  infra-red  energy  omni-direc¬ 
tionally  in  the  horizontal  direction  and  through  300  milliradians  in  the  vertical 
direction.  The  laser  telescope  rotates  counterclockwise  at  a  rate  of  approxi¬ 
mately  one  revolution  per  second.  At  each  40  mil  increment  of  laser  rotation  a 
pulse  flashes  the  XENON  lamp.  In  addition,  each  time  the  rotating  laser  passes 
through  the  South  direction,  the  XENON  tube  emits  a  pair  of  closely  spaced  pulses 
of  radiation,  thus  providing  identification  of  this  direction.  The  GACS  receiver 
is  able  to  receive  and  identify  the  XENON  and  laser  pulses,  and  through  the  GACS 
gun  unit  electronic  logic  circuits  they  are  processed  along  with  the  azimuth 
angle  specified  by  the  Fire  Direction  Center  to  yield  the  NORMAL  angle. 

In  manual  operation,  the  GACS  receiver  is  manually  aligned  to  the  GACS  reference 
unit.  An  electronic  counter  in  the  GACS  gun  unit,  located  at  the  weapon,  remains 
inhibited  until  the  pulse-pair  indicating  that  the  laser  is  passing  through  the 
South  direction  is  received  by  the  GACS  receiver,  whereupon  it  commences  to  count 
the  regularly  spaced  XENON  flashes.  This  process  continues  until  the  narrow 
laser  beam  is  intercepted  by  the  GACS  receiver  which  immediately  stops  the  count. 
An  interpolating  circuit  in  the  GACS  gun  unit  then  calculates  the  angular  posi¬ 
tion  at  which  the  laser  pulse  was  received,  to  the  nearest  mil  between  the  40  mil 
spaced  XENON  pulses.  This  angular  position  is  the  reference  angle.  The  GACS  gun 
unit  then  sums  this  reference  angle  with  the  azimuth  angle  specified  by  the  Fire 
Direction  Center  and  displays  this  sum  as  the  NORMAL  angle. 

This  NORMAL  angle  is  also  available  at  the  GACS  gun  unit  as  an  electrical  output 
in  parallel  binary  coded  decimal  form.  In  the  original  AGLS/GACS  implementation, 
the  GACS  normal  angle  was  utilized  as  the  commanded  input  to  the  M117  panoramic 
telescope,  and  a  digital  shaft  encoder  reading  the  azimuth  counter  value  from  the 
pantel  provides  the  feedback  or  actual  value  for  the  telescope  servo. 

B.  GACS  Interface 


The  Gun  Alignment  and  Control  System  as  previously  integrated  with  the  AGLS, 
provides  the  following  functions. 
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1.  Azimuth  reference,  through  an  off-board  IR/LASER  Reference  Unit  and  an 
on-board  IR  receiver  mounted  on  the  Automated  M-117  panoramic  tele¬ 
scope. 

2.  One-way  commanded  data  transmission,  by  means  of  manually-operated 
switches  on  the  Command  Post  Unit,  through  radio  or  field  phone  lines 
to  the  Gun  Unit. 

3.  Addition  of  the  Reference  Angle  to  the  Commanded  (azimuth)  angle  to 
obtain  a  Normal  Angle  in  local  coordinates. 

4.  Data  display  of  azimuth,  elevation,  and  fuze  setting  commands. 

The  existing  GACS  system  proved  to  be  adequate  for  purposes  of  demonstrating  and 
evaluating  the  Automated  Gun  Laying  System;  however,  several  operational  defi¬ 
ciencies  were  uncovered  during  acceptance  tests  at  Honeywell  and  U.S.  Army  Field 
Artillery  Board  tests  at  Ft.  Sill.  In  the  order  of  frequency  of  occurrence, 
these  were: 

1.  The  GACS  power  supply  would  periodically  fail  when  subjected  to 
transient  supply  voltage  conditions  during  M-109  system  operation. 
This  failure  would  cause  loss  of  all  GACS  functions. 

2.  When  the  line  of  sight  from  Reference  Unit  to  IR  Receivers  was  inter¬ 
rupted,  the  GACS  would  provide  an  angle  of  either  0  or  80  mils,  thus 
causing  erroneous  gun  laying.  After  the  sight  line  was  reestablished, 
the  GACS  was  also  to  provide  the  correct  reference  angle. 

3.  The  data  communications  from  FDC  to  howitzer  would  intermittently 
fail,  with  no  indication  of  the  source  of  the  fault. 

4.  Presentation  of  azimuth  data  in  NORMAL  angle  form  proved  to  be  con¬ 
fusing  to  the  gun  crews,  since  they  were  accustomed  to  numbers  based  on 
3200  being  the  azimuth  of  lay. 
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The  Amendment  to  the  Scope  of  Work  required  additional  data  communications  capa¬ 
bility  as  listed  below: 

1.  An  electronics  interface  at  the  Fire  Direction  Center  (FDC)  with  its 
PDP-11/34  computer. 

2.  An  electronics  interface  in  the  howitzer,  with  the  capability  to 
transmit  back  to  the  FDC  computer  all  data  from  the  AGLS  controller 
data  bus. 

3.  Additional  electronics  interfaces  to  the  DR-810  Muzzle  Velocity  Radar, 
Electronic  fuze  setter,  and  propellant  temperature  measuring  system. 

Since  these  data  communications  requirements  were  beyond  the  capabilities  of  the 
existing  GACS  components,  new  communications  units  were  needed  at  the  FDC  and  at 
the  howitzer.  It  was  decided  to  provide  a  new  power  supply  at  each  location, 
because  the  existing  GACS  supplies  were  subject  to  breakdown,  and  because  their 
output  current  capability  and  voltage  regulation  were  not  known  to  either  the 
contractor  or  the  ARRADCOM  project  personnel. 

Replacement  of  the  GACS  Gun  Unit  required  that  the  Reference  Angle  computation 
feature  be  provided  in  the  new  Vehicle  Communications  Unit.  The  GACS  IR  Receiver 
was  retained,  since  it  had  not  appeared  to  cause  any  performance  problems  in  the 
AGLS  test  phase.  The  GACS  Reference  Unit  was  also  used  in  its  existing  con¬ 
figuration. 

The  modified  AGLS/COW  System  block  diagram  shown  in  Figure  44  includes  only  one 
interface  to  the  GACS;  this  is  the  electrical  interface  between  the  Vehicle 
Communications  Unit  and  the  GACS  IR  Receiver.  Electrical  power  is  provided  to 
the  IR  Receiver,  and  two  pulse  signals  lines  are  output  from  the  IR  Receiver. 

IR  Receiver  Interfaces 


The  IR  Receiver  provides  two  pulse  signals,  triggered  by  the  XENON  and  LASER 
emissions  of  the  Reference  Unit,  which  are  used  to  determine  the  Reference  Angle 
from  the  weapon  to  the  Reference  Unit.  The  XENON  pulse  signal  consists  of  a 
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string  uniformly  spaced  pulses  with  a  6.25  millisecond  spacing.  There  is  an 
additional  pulse,  occurring  once  for  every  160  of  the  uniformly  spaced  pulses, 
relating  to  south.  The  extra  pulse  is  spaced  2.5  milliseconds  before  the  normal 
pulse,  indicating  that  the  next  pulse  should  be  counted  as  ZERO. 

The  pulse  from  the  LASER  detector  appears  as  a  separate  signal,  and  occurs  at  any 
timing  with  respect  to  the  XENON  pulses.  The  only  constraint  on  the  LASER  pulse 
is  that  only  one  can  occur  per  revolution  of  the  reference  unit.  Both  pulses  are 
at  TTL  levels,  and  are  output  by  open  collector  drivers  in  the  IR  receiver.  Thus 
pull-up  resistors  are  needed  at  the  reference  processor  input. 

The  power  required  by  the  receiver  was  determined  to  be  as  follows: 


Pin  E 

+12.6  volts 

90  mil li amperes 

Pin  G 

-15.5  volts 

38  milliamperes 

Pin  D 

+80  volts 

0  to  2  milliamperes 

This  power  was  supplied  by  the  power  supply  in  the  Vehicle  Communications  Unit. 
C.  FDC  Computer  Interface 

Data  supplied  by  ARRADCOM  and  Digital  Equipment  Computation  were  used  to  define 
the  data  interface  between  the  PDP-11/34  and  the  FDC  Communication  Processor 
(FDCOM).  The  purpose  of  FDCOM  was  to  relieve  the  PDP-11/34  from  having  to 
perform  routine  communication  tasks  assoicated  with  data  transfers  between  the 
vehicle  and  FDC.  These  routine  tasks  include  formating  the  message,  control  of 
the  radios,  executing  message  exchange  rules  (protocol)  and  performing  error 
detection  and  correction  via  a  retransmit  sequence.  Insofar  as  the  PDP-11/34  is 
concerned  all  it  expects  to  do  is  deliver  gun  orders  and  commands  to  FDCOM  and 
receive  accurate  vehicle-originated  data  in  return.  The  hardware  interface 
between  the  processors  used  the  PDP-11/34  DR11-L  and  DR11-M  general  purpose 
UNIBUS  interface  connected  to  the  FDCOM  M6820  parallel  interface  adapter.  These 
devices  were  configured  to  exchange  data  in  a  bit  parallel,  character  serial  mode 
using  ASCCII  formatted  characters  and  the  DEC  recommended  handshake  protocol. 
(Reference  DEC  Users  Manual  EK-DR11L-0P-001. )  The  messages  expected  from  the 
PDP-11/34  included: 
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a)  Gun  Orders  in  the  form: 


E 

$  *  $  F  0A  CA  DODD*  FFFa  0EEE  (0) 


where:  C  =  Charge 

D  =  Deflection 
F  =  Fuze  Time 
E  =  Elevation 


b)  Fire  Command  in  the  form: 

E 

$  *  $  FC  (0) 

T 

c)  Check  Fire  Command  in  the  form: 

E 

$  *  $  CF  (0) 

T 

d)  Data  Request  Command  in  the  form: 

E 

$  *  S  DR  (0) 

T 

e)  End  of  Mission  Command  in  the  form: 

E 

$  *  $  EM  (0) 

T 

Messages  returned  from  FDCOM  to  the  PDP-11/34  include: 


a)  Gun  Order  acknowledge  in  the  form: 

E 

1110  DDDDEEEE  FFFC  (0) 

T 

where:  D  =  Echo-back  of  deflection 
E  =  Echo-back  of  elevation 
F  =  Echo-back  of  fuze  time 
D  ■  Echo-back  of  charge 
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b)  Check  Fire  acknowledgement  in  the  form: 


0111  DDDDEEEE  FFFC 


E 

(0) 

T 


c)  Fire  Command  acknowledgement  in  the  form: 


110imVVTTTTTTEC(5)£A(5)EE(5)AC(5)AA(5)AE(5)LLM 


E 


(0) 

T 


where:  V 
T 
EC 
EA 
EE 
AC 
AA 
AE 
L 
M 


Velocimeter  Reading 
Propellant  Temperature 
AGLS  Elevation,  Command 
AGLS  Elevation,  Actual 
AGLS  Elevation  Error 
AGLS  Azimuth,  Command 
AGLS  Azimuth,  Actual 
AGLS  Azimuth  Errors 
AGLS  Level  Status 
AGLS  Mode 


d)  Ready  response  acknowledgement  in  the  form: 

E 

1011VVVVVTTTTTTEC(5)EA(5)EE(5)AC(5)AA(5)AE(5)LLM  (0) 

T 

e)  Data  response  output  in  the  form: 

E 

OOOOVVVVVTTTTTTEC(5)EA(5)EE(5)AC(5)AA(5)AE(5)LLM  (0) 

T 

Several  procedural  rules  were  established  to  control  the  sequence  of  operations, 
namely: 


a)  When  multiple  gun  orders  are  transferred  to  FDCOM,  the  latest  one 
should  be  retained  for  transmission  to  the  vehicle  and  previous  ones 
discarded. 


b)  If  a  gun  order  update  is  transferred  to  FDCOM  prior  to  generation  of 
the  "ready  request"  the  gun  order  should  be  transmitted  to  the  vehicle 
upon  receipt  of  the  previous  gun  order  acknowledgement. 

c)  If  a  check  fire  comuand  is  transferred  to  FDCOM  prior  to  generation  of 
the  "ready  request"  the  check  fire  should  be  transmitted  to  the  vehicle 
upon  receipt  of  the  previous  gun  order  acknowledgement. 

D.  Vehicle  System  Interfaces 

The  original  interface  between  the  GACS  Gun  Unit  and  the  AGLC  processor  was  via  a 
character  serial,  bit  parallel  port  which  used  a  BCD  data  format  (Figure  45). 
The  gun  unit  provided  both  a  data  source  for  FDC  commands  and  a  processor  which 
adjusted  the  azimuth  angle  by  the  measured  reference  angle  to  produce  normal 
angle  commands  to  AGLS.  Because  of  reliability  problems  with  the  GACS  system  and 
the  desire  to  provide  bi-directional  communication  between  the  howitzer  and  FDC 
for  HELBAT  VII,  a  replacement  to  the  GACS  gun  unit  was  required.  This  replace¬ 
ment  system  had  to  provide  communication  control,  reference  angle  processing, 
additional  Chief  of  Section  (COS)  controls  and  interface  to  a  projectile  veloci- 
meter,  propellant  temperature  monitor  and  electronic  fuze  setter.  The  system  was 
dubbed  the  vehicle  communication  processor  (VECOM)  and  interfaced  with  the  AGLS 
as  shown  in  Figure  46.  An  analysis  of  the  interface  characteristics  of  all 
subsystems  connected  to  VECOM  was  performed.  Data  supplied  by  other  contractors 
and  cognizant  government  agencies  was  used  to  develop  the  I/O  configuration  of 
VECOM.  In  addition,  our  own  analysis  of  the  AGLS  and  reference  unit  processor 
(RUP)  needs  defined  those  interfaces;  as  shown  in  the  following  list: 

o  Propellant  Temperature  —  The  initial  intent  was  to  interface  with  a 
real  time  electronic  thermometer  system  furnished  by  Don  Lince  at 
Human  Engineering  Laboratory.  The  interface  was  subsequently  rede¬ 
fined  to  be  a  temperature  entry  set  of  thumbwheels  which  allowed  entry 
of  +  temperatures  of  5  digits  with  resolution  to  0.1°F.  The  data 
format  was  parallel  BCD  with  a  multiplexer  used  to  provide  character 
serial  transmission  (and  reduce  the  number  of  wires  to  the  portable 
entry  box). 
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o  Projectile  Velocimeter  —  The  Lear  Siegler  XM90  Muzzle  Velocity  Radar 
(MVR)  was  used  to  acquire  real  time  projectile  velocity  data.  An  RS- 
232  compatible  serial  data  output,  operating  at  300  baud  was  provided, 
with  data  output  in  the  following  sequence: 

LF,  SW,  DEF,  MSD,  MSD2,  MSD3,  MSD4,  LSD,  CR 

where:  LF  =  ASCII  line  feed  character 

SW  =  Front  panel  switch  position  code 
DEF  =  Display  Error  Flag  (E  =  Error,  F  =  Good) 

MSD  =  Most  Significant  Digit 
LSD  =  Least  Significant  Digit 
CR  =  ASCII  carriage  return  character 

In  addition  to  the  received  data  line  (Rx)  a  data  set  ready  signal 
(DSR)  was  provided  from  the  MVR.  This  signal  was  tied  to  the  data 
carrier  detect  (DCD)  input  of  the  velocimeter  input  serial  port  VECOM 
and  was  used  to  signal  the  presence  (or  absence)  of  the  velocimeter. 
The  MVR,  which  was  used  in  the  signal  shot  capture  mode,  required  a 
memory  clear  reset  signal  prior  to  acquiring  new  data.  The  model  used 
for  the  TB-I  program  did  not  have  the  capability  for  a  remote  reset 
function,  hence  it  was  necessary  to  instruct  the  crew  (loader)  to  reset 
the  velocimeter  before  the  round  could  be  measured.  Since  the  data  was 
output  continuously  from  the  MVR  it  was  necessary  to  design  the  soft¬ 
ware  to: 

a)  Test  to  see  if  velocimeter  present;  if  not  zero  fill  the  buffer. 

b)  Acquire  the  data  "on  the  fly"  by  seeking  start  and  stop  synchroni¬ 
zation  from  the  LF  and  CR  characters  respectively. 

c)  Test  to  see  if  velocimeter  has  been  reset  prior  to  "ready  acknowl¬ 
edge". 

0  Electronic  Fuze  Setter  —  The  specification  for  this  HDL  furnished 
device  required  fuze  data  in  the  form  of  a  frequency  shift  keyed  (FSK) 
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(2225  Hz  mark,  2025  Hz  space)  16  character  ASCII  message.  The  message 
format  was: 


CA  DDDDa  TTTa  EEE  #1 

where:  C  =  Charge 

D  =  Deflection 
T  =  Fuze  Time  in  0.1  secs 
E  =  Elevation 
#1  =  Gun  Number  (TB-1) 

This  data  was  to  be  output  to  the  setter  upon  receipt  of  a  valid  gun 
order  to  VECOM  from  the  FDC. 

o  Reference  Unit  Processor  —  This  processor  was  configured  to  operate 
asynchronously  from  VECOM  and  provided  an  updated  reference  angle  to 
the  AGLS  system.  In  order  to  minimize  the  latency  introduced  into 
either  the  RUP  or  VECOM  processor,  a  BCD  character  serial  bit  parallel 
communication  format  was  utilized  betweeen  parallel  interface  adapters 
(PIAS)  in  the  two  systems.  A  foreground  communication  package  was  used 
to  exchange  data  and  the  control  was  provided  by  a  PIA-PIA  handshake 
routine.  The  data  format  consisted  of: 

SEE 

a)  A  VECOM  request  for  data  (T)  (N)  (T) 

X  Q  X 

S 

where:  (T)  =  ASCII  STX  character 
X 


E 

(N)  *  ASCII  ENQ  character 

Q 


E 

(T)  =  ASCII  ETX  character 
X 


b)  A  RUP  data  return  message: 


S  E 
(T)  RRRR  DODD  (T) 
X  X 


where:  R  =  Reference  angle  computed  by  RUP  in  ASCII  character 
D  =  Value  to  be  displayed  as  function  of  "mode"  switch 


Mode 

D 

Normal 

Azimuth  from  FDC 

Bores ight 

3200 

FDC 

Azimuth  from  FDC 

Base  Deflection 

Azimuth  from  FDC 

c)  A  VECOM  gun  order  data  update 

S  E 

(T)  DDDD  A  (T) 

X  X 

where:  A  =  AGLS  Mode  Code 

o  AGLS  Processor  —  The  primary  data  to  be  exchanged  with  this  processor 
include: 

a)  Gun  Order  inputs  relayed  from  FDC  via  VECOM 

b)  Operational  status  from  the  VECOM  control  panel 

c)  Reference  angle  relayed  from  RUP  via  VECOM 

d)  Elevation  command,  actual  and  error  data  from  AGLS  displays 

e)  Azimuth  command,  actual  and  error  data  from  AGLS  displays 

f)  Active  elevation  and  azimuth  commands  from  AGLS 

g)  Command  Mode  Status  from  AGLS,  i.e..  Normal,  Base  Deflection, 
Boreslght,  Base  Deflection  Set,  Base  Deflection  Clear 
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h)  Level  status  from  AGLS  displays 


i)  AGLS  Mode,  i.e..  Auto  Level,  Auto  Offset,  Full  Auto 

j)  Local  Mode,  i.e..  Base  Deflection  Preset,  Auto  update  enable 

Data  were  transferred  via  a  bidirectional,  RS-232  serial  link  which 
employed  ASCII  formatted  data  and  operated  asynchronously  at  1200 
band. 

The  protocol  employed  a  request  to  send  {character  "T")  from  VECOM 
which  initiated  transfer  of  the  data  buffer  from  AGLS.  Parity,  overrun 
and  framing  were  checked  upon  receipt  and  a  retransmission  requested 
in  case  of  error.  A  character  "R"  was  sent  from  VECOM  to  signal 
transfer  of  data  to  AGLS.  Again  the  data  was  tested  on  the  receiver 
and  to  verify  accuracy  and  a  character  "X"  sent  if  the  tests  failed;  if 
the  test  passed  the  entire  message  was  echoed-back  for  verification. 

RT-524/VRC  Conroand  Radio  Interface  —  This  VECOM  interface  analysis 
consisted  of  (1)  developing  a  message  format  and  protocol  between  the 
vehicle  and  FDC  processors  and  (2)  defining  the  electrical  character¬ 
istics  of  the  line/radio  interface.  The  former  task  was  accomplished 
as  part  of  an  ongoing  independently  funded  effort  addressing  SPH 
digital  communication  techniques. 

This  activity  involved  a  review  of  current  digital  data  communication 
schemes  and  a  consideration  of  their  compatibility  with  the  objectives 
of  the  SPH  fire  control  problem.  While  most  high-speed  computer-to- 
computer  schemes  employ  synchronous  code  transmission  because  of  its 
efficiency,  we  determined  that  the  compatibility  advantages  of  the 
asynchronous  technique  had  more  to  offer  in  the  relatively  short-term 
application  for  the  AGLS-Communicatlon  (AGLS-Comm)  task.  The  compat¬ 
ibility  of  asynchronous  code  transmission,  ASCII  character  formating 
and  300-baud  FSK  modulation  with  both  the  RT-524/VRC  comnand  radio 
link  and  the  use  of  field-wire  backup  communication  made  it  an  ideal 
choice  for  AGLS-Comm. 
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To  preserve  the  longer-range  option  of  synchronous  code  transmission,  a  Binary 
Synchronous  Communications  (BISYNC)  character-oriented  protocol  was  chosen. 
This  protocol  uses  special  characters  to  delineate  the  various  fields  of  a 
message  and  to  control  the  necessary  protocol  functions.  The  communication 
format  designed  for  AGLS-Comm  is  presented  in  Figure  47.  Header  data  is  designed 
to  provide  control  information  necessary  to  steer  message  traffic  (address 
code),  identify  message  purpose  (format  code),  provide  message  verification 
(operation  code),  and  attach  special  significance  (identification  code). 

To  detect  transmission  errors,  BISYNC  uses  vertical/longitudinal  redundancy 
checks  (VRC/LRC).  For  the  ASCII  characters  a  parity  check  (VRC)  is  performed  on 
each  character  (even  parity),  and  an  LRC  is  performed  on  the  whole  message.  In 
this  case,  the  block  check  in  the  postamble  field  of  the  record  is  a  single 
eight-bit  character.  If  the  block  check  character  transmitted  does  not  agree 
with  the  block  check  calculated  by  the  receiver,  or  if  there  is  a  VRC  error,  then 
a  negative  acknowledgement  (NAK)  is  sent  to  the  data  source.  To  correct  errors, 
BISYNC  requires  the  retransmission  of  a  record  when  an  error  occurs.  Retransmis¬ 
sion  will  typically  be  attempted  several  times  before  it  is  assumed  that  the 
transmission  medium  (radio  or  line)  is  in  an  unrecoverable  state. 

When  a  transmitted  record  block  check  character  does  match  the  receiver's  calcu¬ 
lated  BCC,  the  receiver  sends  a  positive  acknowledgement  (ACK).  In  addition, 
alternating  sequence  code  characters  (Figure  47)  are  used  to  detect  duplicated  or 
missing  records. 

Message  formats  have  been  designed  to  respond  to  the  unique  needs  of  the  howitzer 
fire  control  problem.  The  command/request  message  format  (Figure  48)  is  used  for 
the  transmission  of  gun  order  data  from  the  FDC  to  the  howitzer.  The  status 
field  controls  the  command/request  in  accordance  with  the  following  code: 

0001  =  New  Fire  Order 

0010  =  Fire  Command 

0100  ■  Ready  Request 

1000  =  Check  Fire 
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The  verify  message  format,  from  the  howitzer  to  the  FDC,  provides  acknowledgement 
that  the  new  fire  order  has  been  received  in  the  howitzer.  In  addition,  by 
sending  back  the  data  received  in  the  vehicle,  a  one-for-one  comparison  with  the 
transmitted  fire  order  can  be  made  in  the  FDC  computer  for  further  data  valida¬ 
tion. 

The  data  report  message  format,  from  the  howitzer  to  the  FDC,  provides  acknowl¬ 
edgement  that  a  fire  command,  ready  response  or  check  fire  command  has  been 
received  in  the  vehicle.  Gun  laying  and  support  system  parameters  are  presented 
in  the  data  field.  The  status  field  codes  are  complemented  in  the  vehicle  to 
identify  the  command/request  that  the  data  report  message  is  responding  to  in 
accordance  with  the  following  code: 

0000  =  Data  Request  Acknowledgement 
1110  =  New  Fire  Order  Acknowledgement 
1101  =  Fire  Conmand  Acknowledgement 
1011  =  Ready  Response  Acknowledgement 
0111  =  Check  Fire  Acknowledgement 

Having  chosen  a  protocol  (BISYNC,  ASCII,  300  baud  FSK)  and  developed  a  fire 
control  record  and  message  format  the  inter-vehicle  (FDC  Howitzer)  communication 
flow  (Figure  49)  was  designed.  Critical  to  the  scheme  was  the  necessity  to 
operate  the  radio  (line)  In  the  simplex  mode,  i.e.,  the  medium  (radio  channel  or 
line)  is  unidirectional  at  any  given  time,  and  the  transmit/receive  mode  is  under 
the  control  of  the  master  processor.  The  role  (master  or  slave)  of  the  communi¬ 
cation  processors  in  the  vehicle  and  fire  direction  center  is  dynamic;  that  is, 
the  roles  change  as  the  system  executes  the  connect  and  disconnect  sequence.  As 
the  communication  systems  are  Initialized,  the  FDC  processor  assumes  the  slave 
role,  polling  the  communication  channel  for  a  request  to  connect  (SELECT)  from 
any  vehicle.  Once  a  valid  select  is  received,  the  FDC  processor  becomes  the 
master  and  the  vehicle  responds.  This  process  continues  throughout  the  communi¬ 
cation  sequence  with  the  media  (radio  channel  or  line)  alternately  assuming 
receive  and  transmit  roles.  Termination  of  communication,  via  the  issuance  of  an 
end-of-mission  to  the  FDC  proces'jr  again  reverses  the  roles  of  the  processors. 
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This  communication  scheme  was  applied  in  the  design  of  the  AGLS-Communication 
system.  The  inherent  reliability  of  the  self-testing/self-correcting  BISYNC 
protocol  has  proved  especially  useful  when  operating  in  the  radio  communication 
link  mode. 

Definition  of  the  transceiver  electrical  characteristics  revealed  that  optimum 
digital  signal-to-noise  ratio  could  be  obtained  by  using  the  X-mode  radio  inter¬ 
face  which  has  the  following  characteristics: 

Transmit  Input  Z  =  600 

Transmit  Input  Level  (Full  Dev)  =  Ob  (775  mv) 

Receiver  Output  Z  =  600 

Receiver  Output  Level  =  up  to  6  volts  pk 

Further  analysis  revealed  that  while  the  transmitter  input  characteristics  were 
ideal  the  receiver  output  did  not  go  through  the  squelch  circuit  and  therefore 
possessed  a  continuous  noise  output.  In  order  to  take  advantage  of  the  squelch 
circuit  the  receiver  output  was  tapped  off  the  R/T  connector  on  the  rear  of  the 
unit.  This  output  was  squelched  but  the  level  was  constant  and  not  effected  by 
the  front  panel  volume  control. 

B.  Error  Analysis 

The  Automated  Gun  Laying  System  was  designed  to  utilize  the  existing  fire  control 
instruments,  and  to  essentially  add  a  servo  actuator  and  a  sensor  to  each  axis 
being  automated.  As  a  result,  the  mechanical  errors  of  the  existing  fire  control 
instruments  will  be  present  in  the  automated  system,  in  addition  to  the  errors 
due  to  the  AGLS  components. 

Because  the  geometric  complexity  of  the  M109  fire  control  configuration,  the 
following  error  analyses  were  performed  on  one  axis  of  control  at  a  time,  except 
the  weapon  azimuth  and  elevation  axes.  Dynamic  errors  were  not  included,  since 
the  weapon  Is  not  fired  on  the  move,  and  all  servos  will  have  come  to  rest  before 
firing.  Errors  were  calculated  for  each  of  the  AGLS  levels  of  automation. 
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1.  Automatic  Leveling 


In  the  automatic  leveling  mode,  the  error  sources  include  the  following: 

a)  Accelerometer  null  error  +  0.75  mil. 

b)  Accelerometer  null  error  due  to  scale  factor  change  of  1%,  for  initial 

bias  of  10  mils  =  0.01  x  10  mils  =  +  0.1  mil. 

c)  Servo  amplifier  input  null  error  of  1.0  millivolt,  for  an  accelero¬ 

meter  scale  factor  of  5.0  millivolts  per  mil  =  1  millivolt  -s-  5  mv/mil  = 
+0.2  mil. 

d)  Servo  loop  input  required  to  overcome  load  friction  of  2  lb-ft,  with  a 

gear  ratio  of  20:1,  a  motor  constant  of  0.1  lb-ft/amp,  motor  circuit 

resistance  of  10  ohms,  amplifier  gain  of  100,000,  and  an  accelerometer 

scale  factor  of  5.0  millivolts  per  mil 

■ 2  ,b-ft  -  <rrrfr?t  *  *  o.m  £its 

=  0.02  mil 

Maximum  untrimmed  root  sum  of  squares  (RSS)  error  of  AGLS  components 
=  0.752  +  0.12  +  0.22  +  0.22  =  1 783  mil 

Assuming  the  accelerometer  and  amplifier  null  error  with  respect  to 
temperature  are  linear,  and  that  a  maximum  short  term  change  would  be 
0.25  mil,  the  trimmed  RSS  error  would  be 

=  0.252  +  0.0332  +  0.0672  +  0.22  =  0.262  mil 

Using  the  above  errors,  and  the  errors  from  the  applicable  specifica¬ 
tion,  the  combined  leveling  errors  for  the  M15  quadrant  and  the  M145 
mount  are  shown  in  Table  2.  In  combining  errors,  the  instrument  error 
(excluding  backlash)  is  combined  by  RSS  with  the  AGLS  component  RSS 
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TABLE  2 

AUTOMATIC  LEVELING  ERRORS 


Axis 

(Specification) 

Error 

(Section) 

Backlash 

M-145  Mount 

(MIL-M-46314B) 

Pitch  or  Cant 

N/R 

1.0  mil 

M-15  Quadrant 
(MIL-Q-46315C) 

Cant 

0.75  mil 

(3.6.2) 

0.30  mil 

(3.6.4) 

Pitch 

0.25  mil 
|  (3.6.1) 

0.30  mil 
(3.6.4) 

Maximum  Overall 
(RSS)  + 

(Backlash  ±  2) 


Trimmed 

Overall  (RSS)  + 
(Backlash  -f  2) 


1.28  mil 


0.76  mil 


1.23  mil 


0.97  mil 


0.94  mil 


0.51  mil 
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value,  and  added  to  one-half  of  the  backlash.  As  an  example,  the 
trimmed  overall  error  for  the  quadrant  pitch  axis  is 

=  0.252  +  0.2622  +  1/2  x  0.3  =  0.51  mil 

2.  Automatic  Offset 

In  the  automatic  offset  mode,  the  following  error  sources  are  considered: 

a)  Digital/analog  converter  error  =  +  4  mv 

b)  Servo  amplifier  input  null  error  =  +  1  mv 

c)  Servo  loop  input  to  overcome  load  friction  of  2.0  ib-ft  (quadrant),  or 
load  of  1.0  lb-ft  at  10:1  gear  ratio  (pantel)  =  +  0.1  mv. 

d)  Total  encoder  error  due  to  digital  round-off  plus  mechanical  error  = 

+  1  count  x  2.5  mv/count  *  +  2.5  mv. 

Total  Error  =  42  +  l2  +  2.52  =  4.82  mv 

Equivalent  Error  (Untrimmed)  =  4.82  mv  x  x  ^counts  =  -  0,2  mil 

Assuming  that  one-half  of  the  digital/analog  converter  error  has  been 
removed  by  initial  trim,  the  trimmed  error  is  then 

22  +  l2  +  0.12  +  2.52  =  3.36  mv  =  1.34  counts,  or  slightly  more  than 
+  0.1  mil. 


3.  Automatic  Azimuth 


Reference  Unit  Acquisition 


The  reference  unit  acquisition  error  Is  the  error  that  will  exist  when  the  AGLS 
tracker  controls  the  telescope  azimuth  axis  and  causes  the  telescope  to  point  to 
the  GACS  reference  unit.  In  this  mode,  the  telescope  servo  will  be  driving  both 
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clockwise  and  counterclockwise  to  maintain  the  tracker  on  the  reference  unit. 
The  telescope  backlash  will  now  be  inside  the  servo  loop,  and  the  servo  will  tend 
to  stay  in  the  middle  of  the  backlash  region,  whereas  the  automatic  offset  mode 
or  the  manual  procedures  will  cause  the  telescope  to  be  set  to  one  side  of  the 
backlash.  This  change  will  always  be  in  the  same  direction,  since  the  backlash 
is  removed  by  approaching  the  conmanded  value  from  a  lower  number.  The  backlash 
measured  on  the  modified  telescope  is  approximately  3.0  mils. 

The  IR  tracker  error  consists  of  two  components;  an  offset  which  is  a  repeatable 
function  of  range,  and  a  random  noise  which  increases  as  the  square  of  the  range 
from  tracker  to  reference  unit.  The  offset  can  be  trimmed  for  a  given  range; 
that  is,  after  the  howitzer  has  been  emplaced.  Further  offset  adjustment  will 
not  be  needed  unless  the  howitzer  or  the  reference  unit  is  moved.  The  magnitude 
of  this  offset  is  +  2.0  mils  for  a  range  change  of  +  50  meters  from  a  nominal 
range  of  100  meters.  The  random  noise  will  not  cause  a  shift,  but  causes  the 
telescope  servo  to  move  through  the  backlash.  At  ranges  of  250  meters  and 
beyond,  the  noise  increases  to  a  level  which  prevents  tracker  lock-on. 

The  error  on  initial  lock-on,  if  an  extreme  change  in  range  has  occurred  since 
the  last  adjustment,  could  be 

Error  =  3.0,  mils  backlash  +  4  mi1s  =  _2>5  to  +  5>5  mils> 

All  of  this  error  can  be  trimmed  out  after  initial  acquisition.  Subsequent 
acquisitions  will  result  in  an  error  of  1/2  of  the  backlash,  or  1.5  mils  to  the 
right  of  the  reference  unit,  since  the  tracker  null  adjustment  is  to  be  performed 
with  backlash  removed. 

The  remaining  error,  the  Input  needed  by  the  telescope  servo  to  overcome  friction 
torque.  Is  equivalent  to  0.02  mil,  and  as  such  is  negligible  in  comparison  to  the 
backlash.  The  remaining  tracker  error  due  to  noise,  range  change,  and  scene 
change  Is  estimated  to  be  0.25  mil,  assuming  that  the  tracker  has  been  properly 
adjusted  at  a  given  range. 
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b.  Telescope 

The  error  in  the  telescope,  excluding  backlash,  is  specified  as +  1.0  mil.  If  it 
is  assumed  that  20  percent  of  the  backlash  might  remain  or  return  after  backlash 
has  been  removed,  the  overall  telescope  error  becomes 

(0.2  x  3)2  +  l2  =  1.17  mils. 

c.  Telescope  Mount 

The  telescope  mount  can  be  the  source  of  large  errors  of  orientation  between  the 
telescope  and  the  weapon,  because  of  its  mechanical  arrangement.  The  mount 
specification  permits  backlash  of  up  to  3.5  mils  at  maximum  quadrant  elevation 
and  zero  cant.  Preliminary  checks  on  the  backlash  of  the  GFE  mount  indicated 
backlash  of  up  to  20  mils.  In  addition  to  the  backlash,  static  errors  of  up  to 
2.0  mils  can  exist  at  high  quadrant  elevations.  For  a  quadrant  elevation  of  800 
mils,  the  backlash  is  specified  as  0.75  mil,  and  the  mechanical  error  is  approx¬ 
imately  1.2  mils.  Combining  these  errors  results  in  an  RSS  error,  on  an  in-spec 
mount,  of 

+  1.2  =  1.58  mils. 

However,  the  backlash  of  the  mount  had  more  of  an  impact  on  system  accuracy  than 
the  specified  backlash.  The  mount  backlash,  between  the  tracker  (feedback  sen¬ 
sor)  and  weapon  (load)  caused  system  instabilities  at  high  weapon  elevation. 
Since  the  AGLS  was  required  to  operate  at  all  weapon  elevations,  it  became 
necessary  to  implement  a  drastic  reduction  in  weapon  azimuth  controller  gain  to 
prevent  oscillations.  As  a  result  of  this  gain  reduction,  other  errors  became 
significant,  as  described  in  the  following  paragraphs. 

d.  Weapon  Azimuth 


The  error  in  the  weapon  azimuth  channel  is  primarily  due  to  the  dc  gain  of  the 
weapon  controller  and  the  error  due  to  friction.  Other  error  sources  include 
turret  backlash,  controller  offset,  and  servo  valve  errors. 
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The  dc  gain  of  the  weapon  azimuth  controller  is  2.00  volts  out  per  volt  in.  For  a 
load  friction  of  10  percent  of  rated  torque,  a  valve  current  of  0.03  milliampere 
is  required,  or  a  valve  voltage  of  15  millivolts.  This  would  require  an  input 
voltage  from  the  tracker  of  7.5  millivolts,  or,  for  a  tracker  scale  factor  of  30 
millivolts  per  mil,  a  tracker  angular  error  of  0.25  mil. 

Because  of  the  low  dc  gain  of  the  azimuth  controller,  other  errors  due  to  the 
servo  valve  must  now  be  considered.  These  include  hysteresis,  null  bias,  and 
threshold.  Hysteresis  is  reduced  by  the  application  of  a  high  frequency  excita¬ 
tion  or  dither.  For  the  valve  being  used  in  the  AGLS,  the  remaining  hysteresis 
would  be  approximately  15  millivolts.  The  valve  null  error  is  100  millivolts, 
and  the  threshold  is  25  millivolts. 

If  the  threshold  is  combined  linearly  with  the  load  friction  effect,  the  total 
system  threshold  is  15  +  25  =  40  millivolts,  requiring  a  tracker  input  of  20 
millivolts,  for  an  equivalent  input  angular  error  of  0.67  mil. 

Combining  the  threshold,  hysteresis,  and  the  null  errors,  the  RSS  error  due  to 
valve  and  load  friction  is  equal  to 

y  402  +  152  +  1002  =  109  millivolts 

or  an  equivalent  input  error  of  109  +  2  =  54  millivolts,  or  1.8  mils  angular 
error. 

If  the  servo  valve  Is  properly  trimmed  by  the  weapon  azimuth  trim  control,  the 
100  millivolt  valve  error  can  be  reduced  to  25  millivolts  short  term  error.  The 
valve  error  would  then  be  equal  to 

*Y  402  +  152  +  252  =  49.5  millivolts 

or  0.82  mil  equivalent  error. 

The  azimuth  system  gain  was  reduced  to  prevent  oscillations  due  to  telescope 
mount  backlash  when  the  weapon  was  elevated  to  high  quadrant  elevations.  If  the 
controller  dc  gain  were  to  remain  at  14.0,  the  value  prior  to  the  gain  change. 
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the  above  calculated  error  attributed  to  servo  valve  and  load  friction  effects 
would  be  109  +  14  volts  out  per  volt  =  7.8  millivolts,  or  0.26  mil  angular  error. 

e.  Combined  Azimuth  System 

With  an  azimuth  controller  gain  of  2.0  the  total  system  error  would  be,  combining 
the  following  errors 

0.25  mil  tracker  offset 
1.17  mil  telescope 
1.58  mil  mount 
0.82  mil  azimuth  servo 

The  resulting  azimuth  RSS  error  would  be 

0.252  +  1.172  +  1.582  +  0.822  =  2.14  mils. 

This  error  prediction  is  based  on  the  assumption  that  the  tracker  and  weapon 
azimuth  servo  have  been  properly  trimmed. 

If  the  AGLS  components  are  not  considered,  the  combined  error  of  the  M109A1 
components  would  be 

1.17  mil  telescope  error 
1.58  mil  mount  error 

or  a  combined  error  of 

1.172  +  1.582  =  1.97  mils. 

Thus,  it  can  be  seen  that  the  added  AGLS  components  in  a  properly  adjusted  system 
add  less  than  0.2  mil  azimuth  error,  when  RSS  errors  are  compared. 
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4.  Automatic  Elevation 


In  the  automatic  elevation  mode,  the  quadrant  is  driven  by  the  digital  controller 
to  the  commanded  quadrant  elevation,  and  the  level  error,  as  sensed  by  the 
quadrant  pitch  accelerometer,  is  used  to  drive  the  weapon,  thus  reducing  the 
accelerometer  level  error  to  zero.  The  error  sources  to  be  considered  then 
consist  of: 

M-15  Quadrant  Mechanical  Error 
Quadrant  Automatic  Offset  Servo  Error 
Accelerometer  Offset  Error 
Weapon  Elevation  Controller  Error 

The  impact  of  each  of  these  error  sources  on  the  total  elevation  error  is 
described  in  the  following  sections. 

a.  Quadrant  Mechanical  Error 

The  specified  error  for  the  quadrant  elevation  reading  is  0.5  mil.  Since  the 
AGLS  encoder  is  coupled  to  the  elevation  knob,  and  the  accelerometer  is  coupled 
to  the  level  vial,  the  error  between  elevation  knob  and  level  vial  will  also  be 
present  in  automatic  elevation.  It  will  be  assumed  that  all  of  the  0.5  mil  error 
is  between  elevation  knob  and  the  level  vial. 

b.  Quadrant  Automatic  Offset  Error 

As  discussed  previously,  the  error  of  the  automatic  offset  mode  is  0.13  mil. 
Since  this  mode  determines  actual  quadrant  setting  the  same  error  will  be  one  of 
the  error  components  in  the  automatic  elevation  mode. 

c.  Accelerometer  Offset  Error 


The  trimmed  accelerometer  output  voltage  Is  used  to  control  the  elevation  drive. 
Thus,  if  the  quadrant  pitch  servo  was  previously  trimmed,  the  residual  accelero¬ 
meter  error  will  be  reduced  to  approximately  0.25  mil  short  term  error. 
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d.  Weapon  Elevation  Servo 

The  elevation  servo  error  consists  of  the  error  needed  to  overcome  imperfect 
weapon  equilibration,  load  friction,  and  servo  valve  errors.  The  dc  gain  of  the 
elevation  controller  is  225  volts  out  per  volt  in  at  the  minimum  gain  setting. 
The  adjusted  gain  is  estimated  as  300  volts  per  volt. 

It  is  estimated  that  the  equilibration  mismatch  is  +  10%  of  supply  pressure  for 
different  weapon  elevations.  The  load  friction  is  estimated  as  an  additional  + 
10%  of  supply  pressure.  Since  the  elevation  servo  valve,  a  pressure  control 
valve,  can  develop  full  supply  pressure  with  3.0  volts  applied,  the  valve  voltage 
needed  to  overcome  load  friction  and  unbalance  is  combined  by  RSS  to  be 

~\f (0.1  x  3)2  +  (0.1  x  3)2  =  0.42  volts. 

The  valve  hysteresis,  reduced  by  dither,  is  1.0  percent  of  full  scale.  The  valve 
threshold  is  3.3  percent  of  full  scale,  and  the  null  bias  is  5.0  percent  of  full 
scale.  The  combined  RSS  valve  error  then  becomes 

~\J  (0.01  x  3)2  +  (0.033  x  3)2  +  (0.05  x  3)2  =  0.18  volt 

and  the  combined  load  plus  valve  error  is 

“\/o.422  +  0.182  =  0.46  volt. 

The  equivalent  input  required  to  obtain  0.46  volts  out  is  0.46  +  300  =  1.5 
millivolts.  Since  the  accelerometer  scale  factor  is  5  millivolts  per  mil,  the 
equivalent  angular  error  due  to  valve  and  load  errors  is  1.5  +  5  *  0.3  mil. 

e.  The  dc  input  offset  of  the  elevation  controller  module  is  1  millivolt, 
equivalent  to  0.2  mil  angular  error. 

f.  Combined  Error 


The  RSS  combined  elevation  error  consists  of 
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0.5  mil  quadrant  error 

0.13  mil  automatic  offset  error 

0.25  mil  trimmed  accelerometer  null  error 

0.30  mil  elevation  servo  error 

0.20  mil  controller  offset 

and  is  calculated  to  be 

~\J  0.52  +  0.132  +  0.252  +  0.302  +  0.22  =  0.68  mil. 

The  elevation  error  without  AGLS  would  be  due  to  quadrant  error  alone,  and  would 
be  0.5  mil  assuming  no  operator  errors.  Thus,  errors  due  to  the  automatic 
elevation  components  would  increase  the  RSS  error  by  0.18  mil,  if  the  components 
are  trimmed  using  the  given  procedures. 
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VI.  SYSTEM  DEVELOPMENT  AND  FABRICATION 


Following  the  three  month  design  study,  development  of  the  AGLS  components  was 
initiated.  Initial  emphasis  was  placed  on  the  long  lead  time  components,  pri¬ 
marily  the  instrument  servo  actuators  and  the  infrared  tracker,  primarily  be¬ 
cause  these  components  were  recognized  as  the  major  technical  problem  areas,  but 
also  because  the  other  components  (controller  amplifiers,  power  supply  and  con¬ 
trols  and  displays)  would  depend  on  the  characteristics  of  these  components.  The 
weapon  drive  system  was  assembled  almost  entirely  from  M16A1  Add-On  Stabiliza¬ 
tion  System  components.  The  development  plan  for  all  of  the  other  AGLS  com¬ 
ponents  was  to  generate  layout  drawings  in  sufficient  detail  to  verify  their 
mechanical  suitability,  prepare  drawings  of  the  subassemblies  which  would  permit 
fabrication  by  design  technicians,  and  mark  up  the  drawings  during  fabrication  as 
the  need  for  design  changes  became  evident.  The  development  of  the  major  AGLS 
components  is  described  in  more  detail  in  the  following  paragraphs. 

1.  Fire  Control  Instrument  Servos 


Early  in  the  development  phase,  the  gearing,  drive  motors,  and  other  servo 
components  required  to  provide  automatic  operation  were  designed  into  the  M15 
quadrant,  M145  mount  and  M117  telescope.  Space  available  for  these  components 
had  been  estimated  from  the  available  government  drawings,  and  appeared  to  be 
adequate  at  the  time  the  design  review  was  conducted. 

Later,  when  the  M109  was  delivered  to  the  contractor,  wooden  mock-ups  of  the 
servos  were  fabricated  and  installed  on  the  fire  control  instruments.  It  was 
then  found  that  the  added  drive  components  caused  interference  when  the  vehicle 
was  canted  beyond  5  degrees.  Since  it  was  decided  that  full  cant  performance 
capability  must  be  retained,  additional  effort  was  exerted  to  redesign  the  servo 
housings  to  provide  full  10  degree  cant  capability.  This  redesign  activity 
consisted  primarily  of  installing  the  wooden  mock-ups  of  the  servo  components, 
displacing  the  fire  control  instruments  to  their  extreme  positions,  removing  the 
Interfering  material,  and  rearranging  the  Internal  mechanical  components  to  fit 
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within  the  available  space.  As  a  part  of  this  redesign  effort,  a  different  motor 
and  tachometer  were  selected.  The  new  motor  has  less  torque  at  a  higher  speed, 
so  20  to  1  gear  ratios  were  needed  to  meet  the  torque  requirements  of  the  two 
mount  axes  and  the  two  quadrant  axes.  The  calculated  speeds  for  maximum  load 
friction  for  each  servo  are  shown  in  Table  I. 

Inspection  of  the  worm  gears  in  the  quadrant  and  mount  revealed  that  the  existing 
mechanical  stop,  consisting  of  a  screw  in  the  sector  gear,  was  not  adequate  for 
the  higher  torque  available  from  the  servo  motor.  Limit  switches  were  then 
installed,  to  interrupt  the  motor  current  when  the  servo  approached  the  mechan¬ 
ical  limit.  Each  switch  is  bypassed  with  a  diode  which  permits  reverse  motor 
current  to  automatically  provide  drive  away  from  the  limit.  In  addition,  resil¬ 
ient  stops  were  installed  beyond  the  limit  switch  settings  to  cushion  the  impact 
in  the  event  of  a  hard-over  failure.  The  instrument  servo  drives,  modified  as 
described,  were  then  capable  of  operating  to  within  0.5  degree  of  +  10  degree 
vehicle  cant  and  pitch. 

Following  completion  of  the  fabrication  of  modified  servo  units,  open  loop  fre¬ 
quency  response  data  was  taken  for  each  of  the  fire  instrument  servo  units  as 
shown  in  Figures  50  through  54.  In  each  of  these  tests,  the  tachometer  feedback 
loop  was  closed,  a  sinusoidal  forcing  function  applied  and  the  position  sensor 
(accelerometer  or  IR  tracker)  output  was  measured  in  magnitude,  and  phase.  After 
developing  the  controllers  for  each  axis,  the  closed  loop  frequency  response  data 
representing  final  servo  performance  were  taken  and  are  plotted  in  Figures  55 
through  59. 

2.  IR  Tracker 


The  proposed  method  of  detecting  and  locking-on  to  the  GACS  reference  unit  was  to 
use  two  solid  state  video  cameras,  each  utilizing  a  charge-coupled  device  (CCD) 
array.  However,  about  five  months  into  the  program  concern  was  raised  over  the 
projected  size  of  the  optical  elements  needed  by  these  two  cameras.  Since  the 
camera  could  not  resolve  readily  to  any  smaller  image  distance  than  that  of  one 
sensor  element,  it  would  have  been  necessary  to  use  a  large  focal  length  (10 
inch)  lens  to  sense  0.5  mi^l . 
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Figure  50.  M-145  Mount  Pitch  Axis  Open  Loop  Frequency  Response 

Accelerometer  Loop  M-Plot  +40DB  Up. 


Figure  51.  M-145  Mount  Cant  Axis  Open  Loop  Frequency  Response  Accelero 
meter  Loop  M-Plot  +40  T)B  Up. 


M-15  Quadrant  Pitch  Axis  Open  Loop  Frequency  Response  Accelerometer 
Loop  M-Plot  +40  DB  Up. 
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Figure  55.  M-145  Mount  Pitch  Axis  Closed  Loop  Frequency  Response  Accelerometer 
Output. 


Figure  56.  M-145  Mount  Cant  Axis  Closed  Loop  Frequency  Response  Accelerometer 

Output, 
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One  solution  considered  was  to  integrate  the  tracker  into  the  pantel  optical 
system,  thus  utilizing  the  pantel  magnification  to  reduce  the  added  magnifica¬ 
tion  needed  by  the  AGLS  tracker.  However,  it  was  apparent  that  space  was  limited 
in  the  vicinity  of  the  pantel  eyepiece,  thus  potentially  creating  packaging 
problems.  In  addition,  the  optical  accuracy  with  respect  to  the  lower  housing 
would  be  degraded. 

Analysis  of  the  XENON  sterradian  lamp  energy,  based  on  a  Frankford  Arsenal 
measurement  of  2500  watts  per  sterradan,  suggested  that  a  CCD  array  might  not  be 
able  to  detect  the  XENON  lamp  in  the  GACS  reference  unit.  This  concern  was  later 
determined  to  be  a  major  problem,  when  the  GACS  reference  unit  was  delivered  to 
Honeywell  in  January,  1977.  The  reference  unit  was  first  set  up  in  a  50  meter 
indoor  ballistic  range,  and  viewed  with  a  commercially  available  GE  camera  with  a 
CCO  array.  The  camera  could  detect  the  XENON  lamp,  but  the  camera  lens  was 
opened  to  a  low  f-number.  The  camera  output,  as  read  on  a  television  monitor, 
also  exhibited  a  vertical  row  of  spots  rather  than  a  single  image.  This  ghosting 
would  not  be  acceptable  for  the  AGLS  application. 

The  reference  unit  was  then  taken  outdoors  for  further  imaging  tests.  The  camera 
could  not  detect  the  XENON  flashes,  either  with  a  video  monitor  or  with  tracking 
electronics.  The  problem  was  more  severe  outdoors,  because  the  bright  scene 
saturated  the  CCD  sensor  when  the  lens  was  opened  to  the  number  needed  for  the 
indoor  tests.  At  higher  f -numbers  which  took  the  sensor  out  of  saturation,  the 
tracker  would  not  be  able  to  detect  the  XENON  lamp  under  any  ambient  light 
conditions. 

The  problem  is  caused  because,  although  the  light  output  of  the  XENON  lamp  is 
high,  the  time  duration  is  short  (1  to  2  microseconds)  and  the  repetition  rate  is 
low  (160  pulses  per  second).  This  results  in  a  low  level  of  average  energy. 
Since  each  element  of  the  CCD  array  integrates  all  light  that  falls  on  it  during 
one  scan  period,  the  pulse  energy  is  a  small  fraction  of  the  total  energy  seen  by 
the  array  element.  Two  viable  solutions  to  this  problem  were  considered: 

1.  Place  an  electronic  (PLZT)  shutter,  synchronized  to  the  XENON  flash, 
in  the  optical  path  to  reduce  the  amount  of  ambient  light  while 
admitting  all  of  the  XENON  light. 
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2.  Utilize  a  photodiode  sensor  which  would  respond  in  real  time  to  the 
high  energy  pulses,  thus  producing  a  high  output  pulse  over  a  low 
background  ambient  signal. 

Electronic  Shutter 

The  application  of  a  PLZT  shutter  to  the  CCD  array  was  evaluated  by  several 
technically  qualified  personnel.  It  was  determined  that  although  the  PLZT 
shutter  would  meet  the  GACS  interface  requirements  (20  to  200  microsecond  trans¬ 
mission  time  at  a  160  Hertz  rate),  there  were  no  off-the-shelf  drivers  in  exis¬ 
tence  to  control  the  shutter.  Thus,  in  order  to  evaluate  the  PLZT  shutter  in 
conjunction  with  a  solid  state  camera,  it  would  be  necessary  to  either  build  a 
PLZT  shutter  specifically  for  this  application  or  design  and  build  a  special 
driver  amplifier. 

The  PLZT  shutter  has  a  capacitance  of  0.01  to  0.05  microfarad  and  must  be  driven 
by  a  600  volt  pulse.  For  a  20  microsecond  wide  pulse,  the  peak  current  to  the 
PLZT  would  be  from  1.0  to  5.0  amps,  assuming  a  current  with  a  half  sine  wave  time 
function.  The  combination  of  high  current  and  high  voltage  could  cause  Electro¬ 
magnetic  Interference  (EMI)  compatibility  problems  with  the  CCD  array,  since  the 
CCD  depends  on  the  generation  and  transfer  of  small  amounts  of  charges. 

Segmented  Photodiode  Detector 

A  segmented  photodiode  detector  system,  designed  by  Honeywell  for  aircraft  fire 
control  systems,  was  tested  to  determine  its  ability  to  detect  the  GACS  reference 
unit  XENON  lamp.  This  detector  was  able  to  readily  detect  the  lamp  to  ranges 
beyond  500  meters  even  in  bright  sunlight.  This  test  proved  that  a  photodiode 
sensor  detecting  in  real  time  was  the  best  solution. 

A  problem  with  the  segmented  detector  Is  that  present  manufacturing  technology 
cannot  provide  separation  between  the  elements  of  less  than  0.001  inch  (25 
micrometers).  If  a  50  millimeter  focal  length  lens  were  used,  this  would  result 
In  an  angular  dead  space  of  0.5  mil  in  which  the  lamp,  as  a  point  source,  could 
not  be  detected. 
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To  circumvent  the  problem  of  a  finite  dead  space,  a  sensor  was  investigated  which 
provides  proportional  information  on  the  position  of  a  light  spot.  The  sensor  is 
a  lateral -effect  photodiode  with  two  output  leads.  The  output  current  from  the 
leads  can  be  combined  by  the  sum-and-difference  amplifier  to  obtain  a  signal 
proportional  to  the  distance  of  the  light  spot  from  the  center  of  the  photodiode. 
A  sample  of  this  device  was  ordered  and  evaluated  for  use  as  a  detector. 

The  spot  continuous  diode  was  found  to  be  ideally  suited  to  the  GACS  tracking 
problem,  for  the  following  reasons. 

o  It  responds  to  the  peak  of  the  XENON  flash,  thus  providing  a  compara¬ 
tively  large  signal  to  noise  ratio. 

o  The  diode  responds  linearly  to  light  level,  so  that  steady  state  back¬ 
ground  illumination  can  be  readily  removed  from  the  total  sensor 
signal  thus  enabling  detection  of  low  energy  pulses. 

o  The  diode  provides  a  continuous  measure  of  image  position,  without  the 
descrete  steps  and  dead  spaces  of  a  CCD  or  segmented  detector. 

o  A  short  focal  length  simple  optical  system  can  be  used. 

o  Only  one  detector  and  lens  system  is  needed. 

o  The  sensor  is  commercially  available  off-the-shelf  at  a  reasonable 
cost. 

The  spot  continuous  diode  was  further  tested,  and  electronic  circuits  were 
developed  to  best  utilize  the  signal  from  the  diode.  A  complete  description  of 
the  tracker  Is  included  in  Section  III  and  IV  of  this  report. 

3.  IR  Tracker  Noise 


A  fundamental  problem  In  tracking  the  XENON  lamp  is  that  at  far  ranges  the  energy 
level  of  the  light  pulses  decreases  as  an  Inverse  function  of  the  square  of  the 
range.  The  XENON  lamp  does  have  enough  energy  to  permit  detection.  However,  the 
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AGLS  tracker  is  intended  to  resolve  displacement  of  the  XENON  lamp,  down  to  0.25 
mil,  and  has  a  field  of  view  of  +  100  mils.  Thus,  the  tracker  must  be  able  to 
resolve  a  signal  corresponding  to  0.25  percent  of  the  total  energy  applied  to  the 
sensor. 

The  tracker  was  tested  with  the  GACS  reference  unit  at  an  indoor  range  of  17 
meters.  To  simulate  longer  ranges,  aperatures  were  fabricated  to  reduce  the 
optical  entrance  area.  These  tests  demonstrated  that  at  70  meters  distance  from 
tracker  to  reference  unit,  the  tracker  output  noise  is  equivalent  to  a  displace¬ 
ment  of  0.5  mil  peak  to  peak,  increasing  to  2.0  mils  at  140  meters  and  8.0  mils  at 
280  meters. 

The  observed  noise  appeared  to  be  essentially  uniform  with  respect  to  frequency, 
and  could  be  reduced  by  filtering.  However,  the  servo  system  driven  by  the 
tracker  cannot  tolerate  additional  filtering  since  excess  phase  shift  will 
result. 

The  tracker  noise,  therefore,  will  not  permit  reference  unit  lock-on  at  extended 
ranges.  This  was  demonstrated  in  the  AGLS  acceptance  tests,  during  which  lock-on 
could  not  be  achieved  at  ranges  greater  than  200  meters.  To  extend  the  lock-on 
range  would  require  either  more  power  from  the  XENON  lamp  or  a  larger  entrance 
pupil  area  on  the  tracker.  Since  the  reference  unit  is  provided  as  GFE,  it 
cannot  be  modified.  In  addition,  it  might  be  undesirable  to  increase  the  light 
output  from  a  countermeasures  viewpoint.  Increasing  the  tracker  pupil  area  would 
add  to  the  tracker  size  and  weight,  further  compounding  the  problem  of  the 
mechanical  loading  on  the  pantel  and  mount. 

This  deficiency  was  avoided  during  the  acceptance  tests  and  the  Ft.  Sill  tests  by 
keeping  the  reference  unit  within  50  to  100  meters  of  the  howitzer.  At  these 
ranges,  no  problems  were  encountered  in  either  acquiring  or  maintaining  lock  on 
the  reference  unit. 

The  tracker  was  installed  on  the  M117  telescope,  and  data  taken  on  output  voltage 
as  a  function  of  telescope  deflection  when  viewing  the  GACS  reference  unit.  The 
results  are  shown  In  Figures  60  and  61.  The  two  curves  on  each  figure  represent 
clockwise  and  counterclockwise  rotation  of  the  telescope.  The  difference 
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Figure  60.  Tracker  Output  Test  1/2"  Iris  17  m  Range  Indoors 


between  the  two  curves  is  due  to  telescope  backlash.  The  increasing  slope  of  the 
curves  as  the  telescope  moves  away  from  center  is  believed  to  be  caused  by 
reflections  placing  multiple  images  in  the  tracker  field  of  view. 


4.  Telescope  Backlash 

When  the  IR  tracker  was  mounted  on  the  M117  panoramic  telescope,  the  backlash 
measured  either  optically  or  by  the  tracker  was  5  to  6  mils  compared  to  1.0  mil 
required  in  the  telescope  specification.  The  AGLS  controller  is  configured  to 
always  drive  the  telescope  from  a  lower  number  to  the  desired  final  number  and 
thus  stay  on  one  side  of  the  backlash,  using  the  same  procedure  as  is  now  used  by 
the  gunner.  However,  this  procedure  cannot  be  expected  to  remove  all  backlash, 
and  some  small  amount  will  remain.  This  residual  backlash  Is  probably  propor¬ 
tional  to  the  total  backlash,  so  it  is  desirable  to  reduce  this  backlash  to 
improve  the  overall  accuracy  of  the  telescope  in  the  manual  and  automatic  offset 
modes. 

A  second  reason  for  reducing  the  backlash  is  that,  during  reference  unit  lock-on, 
the  tracker  is  continually  driving  the  telescope  and  reversing  directions  as  the 
telescope  servo  approaches  a  null.  The  backlash  will  then  cause  the  servo  motor 
to  continually  hunt  through  the  backlash  region,  and  cause  a  servo  instability. 
In  addition,  the  telescope/tracker  servo  will  tend  to  null  in  the  middle  of  the 
backlash,  but  the  telescope,  when  driven  by  the  gunner  or  under  command  of  the 
digital  controller,  will  null  at  one  side  of  the  backlash.  Thus,  the  telescope 
will  appear  to  be  in  error  by  one-half  of  the  backlash  when  the  tracker  is  used  to 
control  the  telescope. 

The  backlash  was  reduced  to  2  to  3  mils  by  Ft.  Sill  personnel  during  the  system 
acceptance  tests.  This  was  accomplished  by  turning-in  the  worm  shaft  spring 
adjustment  which  is  external  to  the  telescope.  The  spring  did  not  require  any 
additional  adjustments  through  the  acceptance  tests  or  the  Ft.  Sill  dry  firing 
test  sequences.  However,  during  live  firing  the  backlash  Increased.  Again,  it 
could  be  reduced  by  turning-in  the  screw.  Since  the  actual  screw  position  before 
firing  was  not  marked,  it  Is  not  known  whether  the  backlash  Increase  was  due  to 
the  screw  moving  or  if  changes  occurred  Internal  to  the  telescope  during  gun 
firing. 


The  telescope  was  later  disassembled  and  inspected  by  Ft.  Sill  field  maintenance 
personnel  and  a  contractor's  representative.  No  sign  of  mechanical  wear  could  be 
found.  The  servo  drive  was  then  removed  from  the  telescope  and  the  backlash  was 
rechecked.  The  telescope  backlash  was  less  than  1  mil,  as  required  by  the  pantel 
specification. 

It  appears  that  the  springs  which  axially  and  radially  load  the  pantel  worm  shaft 
are  not  adequate  to  hold  the  shaft  against  the  motor  friction  and  the  motor 
torque.  It  would  be  desirable  to  incorporate  stronger  springs  to  keep  the  worm 
shaft  in  place.  However,  the  increased  loading  could  possibly  increase  the 
friction  on  the  pantel. 

A  design  study  is  needed  to  review  this  problem  area  and  to  determine  what 
changes  can  be  implemented. 

5.  Control  and  Display  System  Configuration  Definition 

During  the  Design  Study  phase,  the  need  was  recognized  for  data  displays 
distributed  among  the  several  gun  crew  members.  Specifically,  the  chief  of 
section  requires  full  display  of  all  data  since  he  is  responsible  for  proper 
laying  of  the  weapon.  In  addition,  the  gunner  must  have  available  at  his  station 
a  display  of  all  azimuth  data,  and  the  assistant  gunner  requires  the  elevation 
data. 

The  Design  Study  also  pointed  to  the  need  to  easily  modify  system  configuration, 
and  thus  change  certain  fire  control  functions  from  manual  to  automatic.  Since  a 
certain  configuration  might  require  proper  function  of  other  subsystems,  it 
became  apparent  that  a  high  level  of  logic  would  be  required.  To  provide  the 
additional  data  displays  for  all  crew  members,  the  contract  was  modified  to 
require  three  separate  display  panels  as  well  as  a  separate  digital  controller 
unit.  The  three  display  panels  would  all  receive  their  display  data  by  means  of 
a  data  bus,  thereby  reducing  the  number  of  display  wires  between  units  from  an 
estimated  480  wires  down  to  less  than  60  total  conductors. 

To  satisfy  the  need  for  an  easily  modified  system  configuration,  the  contractor 
selected  a  microprocessor  based  digital  control  subsystem.  Such  a  system  can 
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easily  be  altered  by  external  configuration  selector  switches,  and  can  be  Inter¬ 
faced  with  the  other  AGLS  subsystems  to  provide  a  high  degree  of  operator  safety. 
The  digital  system  is  compatible  with  the  data  bus  selected  to  service  the  data 
display  panels.  Another  advantage  of  the  microprocessor  is  that  it  will  permit 
changes  in  system  operation  to  be  implemented  by  a  simple  software  modification 
with  no  changes  in  components  or  wires.  Since  Honeywell  has  a  complete  micro¬ 
processor  development  facility,  including  semiconductor  memory  programming 
equipment,  system  operating  characteristics  can  be  modified  by  programming  a  new 
memory  array  in  a  matter  of  hours. 

The  block  diagrams  and  descriptions  of  the  digital  controller  unit  are  given  in 

Section  III.  Detailed  schematics  of  the  controller  unit  circuits  are  shown  in 

Figures  62  through  67. 

AGLS  Software  Development 

The  AGLS  Controls  and  Display  software  has  been  designed  to: 

o  Sequence  control  operations  as  a  function  of  the  mode  selected. 

o  Acquire  fire  order  data  from  the  GACS  gun  unit. 

o  Monitor  leveling  servos  and  GACS  reference  unit  detector. 

o  Compute  pointing  errors  as  the  difference  between  commanded  and  mea¬ 

sured  angular  data. 

o  Display  commanded,  measured  and  error  quantities  as  well  as  level  and 
reference  unit  detector  status. 

o  Provide  overall  system  performance  checks  to  insure  safe  operation. 

o  Interface  with  chief  of  section  controls  to  enable  Interactive  opera¬ 
tion. 
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Figure  63.  Parallel  Input  Signal  Conditioner 


66.  Central  Processor  Unit 


The  overall  structure  of  the  software  employs  a  main  program  which  sequentially 
executes  a  variety  of  subroutines.  This  main  program  and  supporting  subroutines 
are  written  in  Motorola  Assembly  Language  (Version  1.00)  which  is  documented  in 
Motorola  M6800  Microprocessor  Programming  Manual  (M68  PRM(D). 

The  main  program  is  supported  by  an  interrupt  driven  background  package  which 
performs  the  functions  of: 

o  Providing  five  double  precision  (16  bit)  programmable  timers  with  1 
millisecond  resolution. 

o  Servicing  the  Digital  to  Analog  converters  for  azimuth  and  elevation 
each  20  milliseconds. 

o  Testing  for  the  presence  (or  absence)  of  the  XENON  lamp  signal  each  20 
milliseconds. 

If  the  XENON  lamp  signal  is  present,  and  has  been  present  for  25 
consecutive  tests  (500  msec)  the  XENON  recognition  flag  (XRECF)  is 
set. 

If  the  XENON  lamp  signal  is  absent,  and  has  been  absent  for  1 
second  or  more  the  XENON  recognition  flag  is  cleared. 

o  Determining  whether  the  weapon  switch  is  being  toggled,  each  20  milli¬ 
seconds,  and  setting  the  weapon  flag  (WPNF)  if  the  switch  Is  enabled. 

o  Updating  the  displays  and  status  indicators  each  200  milliseconds. 
Display  update  Is  inhibited  If  new  GACS  data  are  being  acquired  or  If  a 
computation  is  In  progress. 

The  background  package  is  also  used  to  service  a  program  activity  monitor  which 
allows  examination  of  the  data  and  flag  buffer  contents  through  the  use  of  a  CRT 
on  serial  port  $3002. 
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The  main  program  is  structured  to  run  continuously  through  either  the  first, 
second  or  third  loops  (Appendix  B)  depending  upon  the  position  of  the  servo  and 
weapon  switches. 

The  first  loop  (idle  loop)  is  the  only  loop  active  when  the  servo  switch  is  off. 
The  routines  in  this  loop  read  commanded  (GACS)  data,  encoder  trim,  encoder  data 
and  servo  system  status.  The  difference  computation  is  performed  and  results  are 
displayed.  Manual  adjustment  of  pantel  mount  and  quadrant  leveling  will  be 
monitored  and  the  appropriate  indicators  will  be  illuminated  when  the  values  are 
within  established  bounds.  The  system  must  be  operating  in  this  mode  to  latch  in 
new  configuration  data  or  to  read  information  from  the  GACS  system. 

The  second  loop  is  active  anytime  the  servo  switch  is  on.  This  loop  services  the 
pantel  search  and  auto  offset  mode  of  operation  and  performs  the  preliminary 
tests  for  the  automatic  modes.  Auto-offset  mode  selection,  in  either  azimuth  or 
elevation,  drives  the  appropriate  fire  control  instrument  to  the  angle  commanded 
via  the  GACS  link.  In  the  azimuth  axis  a  special  control  algorithm  is  employed 
to  ensure  that  the  pantel  is  always  driven  to  the  specified  angle  from  the  left 
to  right  (as  observed  from  the  eye  piece  by  an  operator).  Azimuth  search  is 
initiated  in  the  auto-azimuth  mode  by  toggling  the  switch  on  the  chief-of-section 
control  panel.  This  operation  mode  can  only  be  disabled  by  tracker  acquisition 
of  the  GACS  reference  unit  or  by  disabling  the  servo  switch. 

The  third  loop  is  enabled  by  actuation  of  the  weapon  switch.  Before  the  switch 
signal  will  be  recognized,  the  first  loop  conditions  of  XENON  signal  stable  and 
quadrant  offset  null  must  be  satisfied.  Once  recognized  further  testing  of  the 
second  loop  in  Inhibited.  Third  loop  processing  proceeds  (if  the  auto  mode  has 
been  selected)  three  continuous  checks  of  the  XENON  stable  signal,  by  commanding 
the  appropriate  weapon  servos  to  position  the  turret  and  tube.  In  the  elevation 
axis  a  one  second  delay  Is  employed  to  ensure  that  quadrant  accelerometer  tangen¬ 
tial  influences  have  been  minimized  prior  to  initiation  of  tube  movement.  If 
load  position  was  selected,  and  falls  within  prescribed  limits,  the  tube  is 
driven  to  the  elevation  selected  by  the  configuration  switches.  When  QE  is 
selected  (load  deselected)  the  servo  has  to  be  disabled  In  order  to  latch  in  the 
commanded  elevation  angle.  System  stabilization,  as  determined  by  tracker  and 
quadrant  staying  within  specified  null  limits  for  a  timeout  period,  is  signalled 
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by  flashing  of  the  numerical  displays.  When  this  happens,  the  program  goes  to 
idle  mode  (Loop  #1)  and  the  weapon  flag  is  inhibited.  To  reset  the  system,  the 
servo  switch  must  be  toggled. 

A  detailed  flow  diagram  of  the  main  program  is  presented  in  Appendix  C  and  the 
annotated  source  listing  of  the  entire  program  is  included  as  Appendix  D. 

6.  Vehicle  Communication  Processor  (VECOM) 

The  vehicle-located  functions  of  the  add  on  scope  of  work  consist  of  the  Vehicle 
Communications  Processor,  which  provides  two-way  data  communications  with  the 
FDC,  and  the  Reference  Unit  Processor,  which  determines  the  Reference  Angle  for 
the  GACS  subsystem.  To  minimize  the  component  placement  problem,  it  was  decided 
to  house  these  two  processors  in  a  single  assembly,  mounted  at  the  Chief  of 
Section  work  station;  as  shown  functionally  in  Figure  68.  Interfaces  to  the 
AGLS,  AN/VRC-46  Radio,  DR-810  velocimeter,  electronic  fuze  setter,  and  propel¬ 
lant  temperature  measurement  system,  were  implemented  by  a  start  interconnect 
scheme  as  shown  in  the  cabling  diagram  28116114,  of  Figure  69. 

Both  the  VECOM  and  RUP  were  implemented  using  the  Honeywell  H10  microprocessor. 
This  MPU  and  its  supporting  board  set  is  shown  schematically  in  Appendix  A. 
Throughout  the  AGLS -COMM  add-on  system  the  respective  elements  of  the  H10  (MPU, 
Memory,  PIA,  etc.)  are  interchangeable,  differing  only  in  the  instruction  sets 
stored  in  the  socket-mounted  EPROMS.  Two  unique  circuit  cards  were  fabricated 
for  VECOM;  the  reference  unit  phase  locked  loop  and  the  processor  DC  power 
supply. 

The  pulses  from  the  GACS  IR  receiver  are  preconditioned  with  the  phase  locked 
loop,  which  establishes  time  windows  to  accept  the  XENON  pulse  (see  Figure  70). 
It  was  found  that  the  S  pulse  was  approximately  2.5  milliseconds  before  the  next 
X  pulse.  The  phase  locked  loop  is  synchronized  with  the  X  pulses,  and  a  time 
window  equal  to  +  10%  of  the  pulse  period  is  opened  to  accept  pulses  for  trans¬ 
mission  to  the  digital  processor.  Any  pulse  occurring  in  this  window  Is  assumed 
to  be  an  X  (and  not  S)  pulse.  A  second  window  is  opened  from  3.2  to  4.5 
milliseconds  after  the  X  pulse  to  accept  an  S  pulse. 
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70  BLOCK  DIAGRAM  -  REFERENCE  UNIT  PROCESSOR 


The  LASER  pulse  is  passed  directly  to  the  processor,  since  it  is  not  synchronous 
with  the  XENON  channel. 

The  time  gates  established  by  the  phase  locked  loop  eliminate  approximately  80% 
of  any  spurious  pulses  which  might  be  detected.  Further  filtering  is  performed 
in  the  processor  software. 

The  processor  DC  power  supply  was  designed  to  convert  raw  vehicle  power  to  the 
variety  of  voltages  required  to  support  the  microprocessor  system.  In  addition 
voltage  outputs  were  provided  to  power  analog  supporting  subsystems  such  as  the 
GACS  detector. 

Operator  interface  to  VECOM  was  via  the  controls  and  displays  subsystem.  This 
design  used  a  front  panel  layout  as  shown  in  Figure  71.  The  operation  of  VECOM 
via  this  panel  is  described  below: 

On  system  power  up  (using  the  master  power  switch  on  AGLS)  VECOM  is  in  the 
STANDBY  mode  as  indicated  by  the  pilot  light.  The  ELEVATION,  DEFLECTION,  FUZE 
and  CHARGE  displays  will  indicate  0  since  no  gun  orders  have  been  transmitted  to 
the  vehicle.  If  the  GACS  reference  unit  has  been  acquired  and  good  data  are 
being  received  the  GACS  lamp  will  be  lit  and  the  X  and  L  monitors  will  be  flashing 
at  an  approximate  rate  of  80/sec  and  1/2  sec  respectively.  The  reference  angle 
can  be  read  by  switching  the  MODE  switch  to  the  REF  position. 

The  operator  initiates  a  connect  to  the  FDC  by  moving  the  momentary  COMM/STBY 
switch  to  the  COMM  position.  A  select  is  sent  by  VECOM,  acknowledged  by  FDCOM 
and  a  turn  around  code  sent  by  VECOM.  At  this  point  VECOM  is  in  the  slave  mode 
(listening)  while  FDCOM  is  in  the  master  mode.  The  COMM  lamp  will  be  lit  when  the 
system  is  connected  and  GACS/RUP  operation  continues  as  before.  During  the 
exchange  of  data  the  monitors  0-5  will  flash  on  and  off;  the  meaning  of  each  is: 

Monitor  0  *  VECOM  Is  transmitting 

Monitor  1  *  VECOM  Is  receiving 

Monitor  2  *  VECOM  is  processing  the  message 

Monitor  3  *  Data  Carrier  Detect 

Monitor  4  *  AGLS  Comm  Link  Busy 
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Figure  71 


Monitor  5  =  Message  NAK 


When  a  gun  order  is  sent  from  the  FOC  to  VECOM  the  GUN  ORDER  ACK  lamp  is 
illuminated  and  the  beeper  sounds.  The  respective  elevation,  deflection,  fuze 
and  charge  values  appear  in  the  displays  and  are  relayed  to  AGLS.  The  operator 
acknowledges  receipt  of  the  gun  order  by  moving  the  momentary  switch  in  either 
direction.  This  acknowledgement  sends  the  received  gun  order  back  to  the  FDC  for 
validation  and  generates  an  automatic  ready  request.  The  ready  request  lights 
the  READY  monitor  in  VECOM  and  initiates  an  automatic  sequence  of  updating  the 
reference  angle  to  AGLS.  When  the  weapon  has  been  laid  the  READY  is  acknowledged 
by  moving  the  momentary  switch  toward  the  ready  lamp.  This  action  terminates  the 
automatic  reference  angle  update  to  AGLS  and  sends  the  data  report  (consisting  of 
all  AGLS  status  and  numerical  data)  back  to  the  FDC.  When  the  FDC  sends  the  fire 
command  the  FIRE  lamp  illuminates  and  the  horn  sounds.  As  soon  as  the  shot  is 
fired  it  is  signalled  to  the  FDC  by  moving  the  momentary  switch  toward  the  FIRE 
lamp.  This  action  sends  data  report  to  the  FDC.  Upon  receipt  and  acknowledge¬ 
ment  of  this  data  report  the  FDC  requests  an  additional  report.  This  latter 
report  contains  the  measured  projectile  velocity  from  the  MVR.  Messages  need  not 
be  received  in  the  aforementioned  sequence.  Gun  orders  can  be  sent  sequentially 
to  update  other  gun  orders.  Check  fires  (denoted  by  a  flashing  display  of  9's 
and  acknowledged  by  the  READY  switch)  can  be  issued  at  any  time  to  halt  a 
mission. 

Operation  of  the  system,  insofar  as  communications  are  concerned,  is  Identical  In 
either  the  GACS  or  Base  Deflection  (BD)  modes.  In  the  latter  mode,  base  deflec¬ 
tion  initialization  is  required.  This  is  accomplished  by  selecting  Base  Deflec¬ 
tion  Mode,  adjusting  the  AGLS  pantel  to  acquire  the  distant  aiming  point  (DAP) 
and  depressing  the  BD  SET  button.  When  the  BD  setting  is  locked  into  the  AGLS 
processor  the  SET  lamp  will  be  lit.  One  can  either  operate  in  this  mode  or  switch 
back  to  GACS  mode;  the  BD  value  remains  locked  into  the  computer  unless  It  is 
powered  down.  In  operation.  In  BD  mode,  the  preset  reading  obtained  from  the 
pantel  and  stored  during  the  set  operation.  Is  subtracted  from  all  subsequent 
absolute  encoder  readings  such  that  -If  the  pantel  Is  directed  at  the  DAP  the 
ACTUAL  azimuth  reading  would  be  3200.0.  In  the  semi-automatic  mode  of  operation 
(automatic  azimuth  offset)  azimuth  gun  orders  from  the  FDC  are  directed  to  the 
pantel  to  drive  it  to  the  specified  angle.  The  cab  must  then  be  rotated  by  the 
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gunner  through  the  power  handle  to  acquire  the  DAP  sight  picture;  the  weapon  is 
then  laid  in  azimuth. 

The  front  panel  VECOM  displays  and  controls  were  designed  to  minimize  Chief  of 
Section  (COS)  workload.  In  the  fully  automatic  mode  of  operation  only  one 
control  is  required  from  the  AGLS  COS  panel  and  that  is  the  weapon  lay  enable 
(WPN) . 

The  software  designed  for  VECOM  is  shown  in  flow  form  in  Figure  72  and  the 
associated  assembly  level  source  code  is  contained  in  Appendix  B. 

The  reference  unit  processor,  being  sufficiently  different  from  any  other  proc¬ 
essor  designed  until  now,  was  programmed  using  the  methods  of  top  down  software 
designs.  The  circuit  elements,  shown  In  the  block  diagram,  consist  of  the  GACS 
IR  Receiver,  a  phase-locked  loop,  and  a  standard  microprocessor  with  input/out¬ 
put,  random  access  memory  (RAM),  program  memory  and  a  central  processing  unit 
(CPU). 

The  inputs  to  the  RUP  are  three  pulses: 

X  »  A  XENON  pulse  occurring  every  40  mils  of  LASER  rotation. 

S  =  A  pulse  occurring  once  for  every  160  valid  X  pulses,  spaced  between  two 
X  pulses. 

L  =  A  pulse  occurring  once  for  every  S  pulse,  at  any  timing  including 
coincidence  with  an  S  pulse  or  an  X  pulse. 

The  outputs  of  the  RUP  are  to  be: 

o  The  reference  angle  from  0  to  6399  in  binary  coded  decimal,  and 

o  A  status  flag  showing  that  the  currently  computed  reference  angle  Is 

valid. 
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(CONTINUED  ON  FIGURE  72b) 
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(CONTINUED  ON  FIGURE  72h) 
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After  the  configuration  was  defined,  a  software  specification  was  generated, 
briefly  as  follows: 

o  Three  software  timers  counting  from  0  to  159  shall  be  provided  each 
with  a  status  bit  and  a  cycle  counter  counting  complete  cycles  from  0 
to  7. 

o  A  timer  will  be  started  on  the  first  "X"  pulse  immediately  following 
"S"  pulse,  if  no  other  timer  is  at  count  159  and  active. 

o  If  a  timer  is  at  count  159  and  active,  and  an  "S"  pulse  arrives,  that 
timer  stays  active  and  rolls  over  to  count  0  on  the  "X"  pulse  immedi¬ 
ately  following  the  "S“  pulse.  Its  cycle  counter  will  be  incremented 
if  not  at  the  maximum  value  of  7. 

o  If  a  timer  is  at  count  159  and  active,  and  an  "X"  pulse  arrives  without 
a  preceding  "S"  pulse,  that  timer  goes  inactive,  and  its  cycle  count  is 
cleared  to  zero. 

This  software  configuration  ensures  that  an  erroneous  reference  angle  can  not  be 
computed;  and  the  correct  count  can  be  determined  by  examining  the  cycle  counter 
and  status  bit  of  the  three  counts. 

One  additional  check  is  to  verify  that  either  the  "S"  and  the  "L"  pulse  are 
alternating,  or  they  are  coincident.  If  true,  and  if  at  least  one  counter  is 
active,  the  processor  determines  that  a  good  GACS  measurement  exists. 

The  total  reference  angle  Is  computed  by  the  above  counter,  plus  an  interpolation 
which  resolves  the  time  Interval  during  which  the  LASER  is  detected.  The  refer¬ 
ence  angle  then  is  determined  to  be: 

40  T, 

Output  =  40  x  (count)  +  — * — 

'x 

where:  Count  =  Value  of  counter  with  highest  value  in  cycle  counter 
Tl  =  System  clock  cycles  from  last  "X"  pulse  to  "L"  pulse 
Tx  =  System  clock  cycles  from  ("X"  pulse  preceding  "l"  pulse) 
to  ("X"  pulse  following  "L"  pulse). 
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The  software  flow  diagram  for  the  RU  program  is  shown  in  Figure  73  and  the 
associated  assembly  level  source  code  in  Appendix  C. 

7.  Fire  Direction  Center  Communication  Processor  (FDCOM) 

The  fire  direction  center  located  function  of  the  add  on  scope  of  work  consisted 
of  the  FDC  communication  processor  interfaced  to  the  FDC  PDP-11/34  computer. 
This  processor  provided  two-way  communication  between  the  FDC  and  VECOM.  The 
processor  was  mounted  in  a  6"  high  rack  cage  assembly  to  facilitate  installation 
in  ARRADCOM's  Automated  FDC  trailer.  A  functional  block  diagram  of  FDCOM  is 
shown  in  Figure  74  and  the  corresponding  schematics  are  contained  in  Appendix  D. 
This  processor  used  the  common  board  set  H-10  microprocessor  system  which  allowed 
complete  interchangeability  between  it  and  its  vehicle  mounted  counterpart.  One 
unique  circuit  card  was  fabricated  for  FDCOM  that  being  the  PDP-11/34  interface 
board.  This  board  was  required  to  make  the  respective  system  I/O  port  electrical 
characteristics  compatible. 

On  system  power  up  (or  RESET)  FDCOM  goes  into  the  STANDBY  mode.  In  this  mode  the 
receiver  circuits  are  enabled  waiting  a  SELECT  or  sign  on  message  from  a  vehicle- 
borne  VECOM.  Upon  receipt  of  a  SELECT  the  message  is  checked  for  validity  and  an 
acknowledgement  is  sent  to  the  vehicle.  The  line-turn  around  message  is  then 
sent  to  place  the  vehicle  processor  in  the  slave  mode  and  FDCOM  in  the  master 
mode. 

When  a  message  is  received  from  the  FDC  computer  the  transmit  sequence  is 
initiated.  The  first  message  out  is  usually  the  gun  order,  which  is  returned 
upon  acknowledgement  by  the  Chief  of  Section.  If  another  gun  order  or  check  fire 
has  not  been  received  by  FDCOM  from  the  FDC  computer  in  the  interim,  a  ready 
request  is  sent  to  the  vehicle.  If  either  the  gun  order  update  or  check  fire  was 
received  from  the  FDC  computer,  FDCOM  sends  that  next.  All  acknowledgements  from 
the  vehicle  and  the  data  messages  that  go  with  them  are  made  available  to  the  FDC 
computer  via  an  interrupt  driven  output  buffer. 

For  checkout  purposes,  or  in  case  of  FDC  computer  failure,  a  background  package 
was  written  for  FDCOM  that  allowed  entry  of  gun  orders  and  display  of  vehicle 
responses  via  a  terminal. 
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Figure  73e 


187 


REFERENCE  UNIT  PROCESSOR 
FUNCTIONAL  FLOW 
(Partial ) 
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Status  displays  are  provided  on  FDCOM  to  allow  monitoring  of  the  communication 
sequence;  the  meaning  of  each  is: 

NAK  =  Negative  acknowledgement  of  message  received,  retransmit 
requested. 

DCD  =  Receive  data  carrier  detect 

FDIN  =  FDCOM  is  receiving  message  from  either  FDC  computer  or  terminal 
(background) 

FDOUT  =  Data  received  from  vehicle  is  available  for  output 
CJ*3  =  FDCOM  is  unpacking  received  message 
CJ=0  =  FDCOM  comnunication  link  is  idle 

COMM  =  Communication  system  is  connected  between  vehicle  and  FDC 

STBY  *  Communication  system  not  connected  and  FDCOM  is  ready  to  accept  a 
select 

In  the  connect  sequence  we  have  shown  how  VECOM  initiates  a  data  exchange  se¬ 
quence  with  FDCOM.  During  this  sequence  the  roles  of  the  respective  processors 
are  Interchanged;  that  is,  VECOM  goes  from  an  active  to  passive  state  and  FDCOM 
from  a  passive  to  active  state.  The  disconnect  sequence  again  reverses  the  roles 
and  can  be  initiated  from  either  end  of  the  link.  The  disconnect  is  initiated  at 
VECOM  by  momentarily  switching  to  the  STANDBY  mode.  This  action  sets  a  flag  in 
the  processor  and  when  the  next  message  is  sent  from  FDCOM  a  request  for  discon¬ 
nect  (RFD)  is  returned. 

The  RFD  results  In  a  disconnect  comnand  (DIS)  being  sent  back  to  VECOM  whose 
response  Is  to  switch  to  the  STANDBY  mode. 

The  disconnect  can  be  initiated  at  FDCOM  by  issuing  an  end  of  mission  command  via 
the  FDC  computer  Interface  on  background  package.  This  message  results  in  a 


disconnect  being  sent  to  VECOM  and  a  switch  to  STBY  mode  by  FDCOM  once  the 
message  has  been  received  by  VECOM. 

The  software  designed  for  FDCOM  is  shown  in  flow  form  in  Figure  75  and  the 
associated  assembly  level  source  code  is  contained  in  Appendix  E. 

B.  Automatic  Gun  Laying  System  Processor  (AGL5) 

As  indicated  in  Figure  8  communication  between  VECOM  and  AGLS  is  via  a  bidirec¬ 
tional  RS-232  serial  link.  Since  the  original  source  of  gun  order  data  was  via  a 
parallel  BCD  interface  to  the  GACS  Gun  Unit,  changes  were  required  to  the  AGLS 
program. 

The  operating  sequence  of  the  AGLS  was  modified  as  follows: 

o  All  gun  order  data  is  received  and  operating  data  reported  via  a  bi¬ 
directional  serial  data  port. 

o  Back  up  gun  order  data  entry  via  thumb  wheels  will  be  provided  using 
the  existing  GACS  data  port. 

o  AGLS  Status  word  added  to  the  COMM  buffer  (mode). 

o  Separate  error  bound  test  routines  are  used  for  level  and  tracker 
status  and  tracker /quad  pitch  null  tests. 

o  The  system  now  has  the  ability  to  operate  on  one  set  of  gun  orders  and 
display  the  new  (command  values). 

o  New  gun  orders  are  latched  In  with  a  single  switch  movement.  If  in 
AUTO  Az  or  El  mode,  the  new  gun  order  is  latched  in  via  WPN  switch;  If 
not  AUTO  Az  or  El,  the  gun  order  is  latched  in  via  SERVO  switch. 

o  Load  position  Is  selected  at  any  time  In  AUTO  El  mode  without  any  other 
switch  motion.  Return  to  QE  Is  also  automatic;  l.e.,  no  other  siwtches 
involved. 
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In  addition  to  these  changes,  the  reference  angle  computation  algorithm  was 
changed.  Rather  than  accepting  a  COMMAND  azimuth  that  is  the  sum  of  the  FDC  gun 
order  deflection  and  the  reference  angle,  COMMANDED  azimuth  is  accepted  and 
displayed  directly.  The  reference  angle  data  from  VECOM  is  subtracted  from  the 
absolute  encoded  pantel  reading  to  make  the  ACTUAL  azimuth  display  compatible 
with  the  COMMANDED  value. 

The  new  assembly  level  source  code  listings  reflecting  these  changes  are  con¬ 
tained  in  Appendix  F. 
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B7 

24  OD 

STA  A 

PIA4DB 

04670 

40F9 

7E 

4023 

JMP 

AG2 

04680 

*  TEST 

IDLE  FLAG 

04690 

40rC 

7D 

001 A 

AG47 

TST 

IDLEF 

04/00 

40FF 

27 

03 

BEQ 

AG  39 

04710 

4101 

7E 

4023 

JMP 

AG2 

04720 

*  SET  1 

HU  FLAGS 

04730 

4104 

BD 

4407 

AG  39 

JSR 

StIUF 

04  740 

*  WEAPON  AZ  ENABLED? 

04  750 

4107 

7F 

0042 

CLR 

AZDAF 

04760 

4I0A 

7C 

0042 

INC 

azdaf 

04  770 

4I0D 

7D 

0014 

TST 

AZGClF 

04  780 

4J  JO 

27 

35 

BEO 

ADI  2 

04790 

*  TEST 

START 

THRU  FLAG 

04800 

4  1  12 

7D 

00 1C 

TST 

STF 

04810 

4  115 

27 

03 

BEO 

AG37 

048  20 

4117 

7E 

4  IbC 

JMP 

A3 16 

04830 

*  TEST 

XENON 

ON 

04840 

4IIA 

7D 

0017 

AG37 

TST 

XRECF 

04  $50 

4IID 

26 

03 

BNE 

AG32 

04960 

4  II F 

7E 

4  176 

JMP 

AG4 

04870 

♦  ENABLE  PANTCL  AZ 

04.380 

4122 

86 

FB 

AG32 

LDA  A 

#PAGO 

04390 

4124 

HD 

439E 

JSR 

FIXENB 

04900 

*  TEST 

READY 

>4910 

4127 

7U 

0025 

TST 

AREDY 

04920 

4I2A 

27 

03 

BEO 

AG4I 

04930 

4I2C 

7E 

41  AC 

JMP 

A  03 

04940 

*  AZ  D/A  OUTPUT»0 

1)4950 

4I2F 

CE 

(XXX) 

AG4I 

LDX 

#0 

04960 

4132 

DF 

4F 

STK 

AZCOM 

O4v70 

*  DISABLE  PAHTEL  OFFSET 

04  980 

4134 

86 

EF 

LDA  A 

#P<CO 

)4990 

4136 

BD 

4548 

JSR 

FIXDIS 

05000 

*  DISABLE  RU 

SEARCH  FUGS 

05010 

4  1  39 

7F 

001 B 

CLR 

RUCWF 

05020 

41  3C 

7F 

0024 

CLR 

RUCCWF 

05030 

*  SET 

RFADY 

KAGE  Oil  AoLS 


0b040  4131-  71-  0025  CLR  APEUY 

05050  4142  7C  0025  INC  A.IEOY 

15060  4145  20  65  BRA  AG3 

O5070  *  NEA PON  A Z  DISABLED 

05080  *  TEST  PANTEL  OFFSET 

O5090  414  7  P6  OB  AO  1 2  LDA  A  4P0R0X 
05100  4149  HO  4396  JSR  TSTSN 

)5I 10  4I4C  24  IE  BCC  AGI3 

05120  *  ENABLE  PANTEL  OFFSET 

J5I30  4l4h  H6  EE  LDA  A  »PIIC() 

75140  4150  HD  439E  JSR  FIXENB 

05150  *  TEST  AZ  LOCK 

05160  4153  70  0020  TST  AZLICI 

05170  4156  26  64  BNE  AG  1 6 

05100  *  ENABLE  PANTEL  A2 

•J5I90  4  158  86  f 8  LDA  A  #PAGO 

.752  00  4 1  5A  BD  43VE  JSR  FIXENB 

05210  *  TEST  AZ  CLOSING 

05220  4I5D  BD  4C62  JSR  CLAZ 

05230  4160  24  5A  BCC  AG  1 6 

05240  *  DISABLE  PANTEL  AZ 

05250  4162  B6  Fb  LDA  A  APAGO 

05260  4164  BD  4548  JSR  FIXDIS 

15270  4167  7C  0020  INC  AZLK1 

05280  4I6A  20  50  BRA  AG  1 6 

05290  *  AZ  D/A  OUTPUT-0 

05300  4 1 6C  CE  0000  AGI3  LDX  AO 

053 10  4I6F  DF  4F  STX  AZCdN 

J5320  4171  7F  0020  CLR  AZLKI 

05330  4174  20  46  BRA  AGI6 

05340  4176  7F  0025  AG4  CLR  AREDY 

05350  *  RU  SEARCH  CN7 

05360  4179  96  IB  LDA  A  RUCHF 

05370  4I7B  27  07  BEO  AG  1 4 

05380  4I7D  CE  OAOO  AG33  LD*  APJOO 
05390  4180  OF  4F  STX  AZCdU 

05400  4182  20  09  BRA  AG  1 5 

05410  *  RU  SEARCH  CCH? 

05420  4184  96  24  AG  14  LDA  A  RUCCN 

05430  4186  27  17  BEO  AG20 

15440  4188  CE  BAOO  LDX  AM  1 00 

05450  4188  DF  4F  STX  AZCON 

05460  *  ENABLE  PANTEL  OFF 

05470  4 1  80  86  EF  AG  1 5  LDA  A  APOGO 

05480  4I8F  BD  439E  JSR  FIXEN 

.15490  *  ENABLE  PANTEL  AZ 

05500  4192  66  FB  LDA  A  APA«i 

05510  4194  BD  439b  JSR  FIXEN 

05520  *  SET  THAN  BUCK 

0  5530  419  7  7F  00111  CLR  T9LK 

05540  4 1 VA  7C  OOID  INC  TBLK 

05550  4 1 90  20  ID  BRA  AG16 


0  5560 

05570  4I9F  86  FB 


STX  AZCdU 

BRA  AG  1 5 

*  HU  SEARCH  CCH? 

AO  14  LDA  A  RUCCHF 

BEO  AG20 

LDX  AMIOOM 

STX  AZCON 

*  ENABLE  PANTEL  OFFSET 

AC  1 5  LDA  A  APOGO 

JSR  FIXENB 

*  ENABLE  PANTEL  AZ 

LDA  A  4PAG0 

JSR  FIXENB 

*  SET  THAV  BUCK 

CLR  TBLK 

INC  TBLK 

BRA  AG  1 6 

*  DISABLE  PANTEL  AZINUTH 

AG  20  LDA  A  APAGO 
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4540 

JSR 

F I XD1S 

OOID 

CLR 

TBLK 

oo  in 

INC 

TBLK 

10 

HRA 

AC  16 

*  TEST 

XENON 

STABILI 

4DB7 

AO  3 

JSR 

XSTAB 

05 

BCC 

AG  36 

*  CLEAR  TRAV 

BLOCK 

OOID 

CLR 

TBLK 

06 

BRA 

AJI  6 

OOID 

A036 

CLR 

TBLK 

OOID 

INC 

TBLK 

0041 

AC  16 

CLR 

ELDAF 

0041 

INC 

ELDAF 

05720  ’ 

05730  4IC2  7D  0015 
05740  4IC5  27  IA 
05750 

05/60  4  I C 7  717  OOIC 
05770  4tCA  26  44 
05780 

05790  4 ICC  7F  001 E 
05800  4ICF  7C  00 1 E 
05810  4ID2  CE  OOOA 
05820  4ID5  DF  60 
05830  4ID7  BD  4D42 
05840  4 1  DA  24  34 
05850 

05860  4 1  DC  7F  OOIE 
05870  4IDF  20  2F 
05880 

05890  4IEI  86  04 
05900  4IE3  BD  4396 
05910  4IE6  25  OA 
05920  4IE8  CE  0000 
05930  41 EB  DF  51 
05940  4 1  ED  7F  001 F 
05950  4IF0  20  IE 
05960 

05970  4IF2  86  DF 
05980  4IF4  BD  439E 
05990 

06000  41 F7  7D  001 F 
06010  4IFA  26  14 
06020 

06030  4IFC  86  F7 
06040  4IFE  BD  439E 
06050 

06060  4201  BD  4CF7 
06070  4204  25  02 
06080  4206  20  OB 
06090 

06100  4208  86  F7 
06110  420A  BD  4548 


*  AUTO  EL  SELECTED? 

TST  ELG11F 
BEO  AG23 

*  START  THRU  SET? 

TST  STF 
BNE  AG2 I 

*  TEST  QUAD  PITCH  CLOSING 

CLR  EBLK 
INC  EBLK 
LDX  AIO 
STX  QPLP 
JSR  CLOP 
BCC  AJ2I 

*  NULL  ACHIEVED 

CLR  EBLK 
BRA  A02I 

*  TEST  OUAD  OFFSET  SELECT 
AG23  LDA  A  AQORQN 

JSR  TSTSN 
BCS  AG50 
LDX  #0 
STX  ELC11H 
CLR  ELLKI 
BRA  AG2 I 

*  ENABLE  QUAD  OFFSET 
AG50  LDA  A  AOI1GO 

JSR  FIXENB 

*  TEST  EL  LOCK 

TST  ELLKI 
BNE  AG2I 
«  ENABLE  OUAD  PITCH 
LDA  A  AOPGCI 
JSR  FIXENB 

*  TEST  EL  CLOSING 

JSR  CLEL 
BCS  AG24 
BRA  AG2 I 

*  DISABLE  OUAD  PJTCH 
AC24  LDA  A  AQPOO 

JSR  FIXDIS 
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06120 

4  20D 

7C 

00  IF 

INC  fcLLKI 

06130 

* 

OUTPUT  CONFIG  ENABLES 

06140 

4210 

V6 

20 

AC2I  LDA  A  CONGO 

06 1  50 

4212 

B7 

2400 

STA  A  PIA4DB 

06  1  60 

* 

START  THRU  SET? 

Ool  70 

4215 

70 

00 1C 

TST  STF 

06  1  80 

4213 

26 

OB 

BNE  AJ25 

061  VO 

* 

TEST  TRAV  OR  EL  BLOCK 

062  00 

421  A 

BD 

4DAV 

JSR  oRBLK 

06210 

4210 

24 

06 

BCC  A3 25 

06220 

421  F 

7F 

0016 

CLR  fcPNF 

062  30 

4222 

7E 

40V6 

JMP  AG 7 

)o240 

* 

TEST  WEAPON  S* 

06250 

4225 

7F 

OOIC 

AC  25  CLR  STF 

06260 

4  228 

70 

0016 

TST  wPNF 

062  70 

4  228 

26 

03 

PNE  AJ27 

J<»  ?H0 

4  220 

7E 

40V6 

JMP  AG 7 

062VO 

* 

SET  START  THRU 

-6  300 

4230 

7C 

o 

8 

AG27  INC  STF 

J63I0 

* 

AZ  ENABLED? 

06  320 

4  2  33 

7F 

001  A 

At:  17  CLH  1 OLEF 

id  ^30 

4236 

7D 

0014 

TST  AZGOF 

<6340 

423V 

27 

50 

8E(J  A3  26 

>6  J5U 

* 

TEST  XENON  ON 

>6360 

423d 

7? 

0017 

TST  XRECF 

oft  <70 

4  23E 

26 

06 

BNE  AG 40 

>6380 

4240 

7F 

0025 

CLR  AREDY 

>6  <V0 

4243 

7F 

0016 

CLR  ’.‘iPNF 

064.  >0 

* 

TEST  READY 

>0410 

4246 

/D 

0025 

/»G40  rsr  AREOY 

i>642(; 

424V 

26 

07 

BNE  AG  1 V 

•  >'  .;?o 

* 

DISABLE  PANTEL  AZ 

36  440 

424B 

86 

Fb 

LDA  A  #PAGO 

>6450 

4240 

BD 

4548 

JSR  FIXDIS 

>64  60 

4  2d0 

20 

34 

BRA  A-345 

>64/0 

* 

ENABLE  WEAPON  AZ 

064H(; 

4252 

86 

3F 

AG  IV  I.DA  A  #AZG() 

>  6  4  V  i  j 

4254 

BD 

43VE 

JSR  FIXENB 

* 

TEST  AZ  LOCK 

0<  *3  1 0 

4  25  7 

7V 

0022 

TST  AZLK2 

>6520 

425A 

26 

20 

BNE  AG 51 

J6--.10 

* 

ENABLE  PANTEL  AZ 

06  *>40 

4  25C 

86 

FB 

LDA  A  #PAGO 

>6 '  50 

425E 

BO 

43VE 

JSR  FIXENB 

*>6U 

* 

ENAULE  PANTEL  OFFSET 

>66  /O 

4261 

do 

EF 

LDA  A  #P(CO 

>6480 

4263 

bO 

43vF. 

JSR  FIXENB 

JCfcv’i 

* 

TEST  AZIMUTH  CLOSING 

4266 

7F 

(X)2V 

CLR  SLOWF 

IV  1  . 

4,'OV 

7C 

002V 

INC  SlOWF 

>ft/.  20 

4  26C 

BD 

4C62 

JSR  CLAZ 

<6630 

4?6F 

24 

1A 

ICC  AG  26 

>6640 

* 

DISABLE  PANTEL  AZ 

>>650 

4  2  71 

7F 

002V 

CLR  SLOWF 
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06660 

4274 

86 

Pii 

LDA  A  rfPACO 

J0670 

4276 

Bu 

4548 

JSR  FIXDIS 

06680 

4279 

7C 

0022 

INC  AZLK2 

1J60VO 

*  TEST  TRACKER  NULL 

06700 

427C 

CE 

0 /DO 

AU5I  LDX  #2000 

>6710 

427F 

DF 

50 

STX  TRLP 

06  720 

4281 

3D 

4D26 

JSR  CLTR 

06730 

4284 

24 

05 

BCC  AG26 

06740 

*  DISABLE  AZ 

06750 

4286 

86 

BF 

AG45  LDA  A  #AZGO 

06760 

4288 

BD 

4548 

JSR  FIXDIS 

06  770 

*  EL  ENABLED? 

06780 

423B 

TJ 

0015 

AG  26  TST  ELGOF 

06790 

428E 

27 

5B 

3EQ  AG 30 

063  00 

*  TEST  WEAPON  FLAG 

06810 

4290 

7C 

0016 

TST  WPNF 

06820 

42V3 

27 

OA 

BEO  AG2V 

06330 

*  TEST  LOAD  POSITION 

06040 

42V5 

7D 

001b 

AG 22  TST  LPOSF 

J6850 

42V8 

2/ 

oc 

BEO  AG43 

06860 

*  TEST  ELEVATION  ERROR (D/A  FORMAT) 

068  70 

42V  A 

7D 

0055 

TST  EL ERR 

O088O 

42VD 

2B 

07 

BMI  A 04 3 

068V0 

*  DISABLE  QUAD  PITCH 

06  V  00 

42  V  F 

86 

F7 

AG 29  LDA  A  #QPCO 

06V  10 

42AI 

BD 

4548 

JSR  FIXDIS 

06920 

42A4 

20 

40 

BRA  AG48 

06930 

*  TEST  EL  LOCK 

06940 

42A6 

7D 

0021 

AG43  TST  ELLK2 

06V50 

42AV 

26 

31 

BNE  AG52 

06960 

*  ENABLE  QUAD  PITCH 

06V  70 

42AB 

86 

F7 

LDA  A  #7PG0 

O6V00 

4  2AD 

BD 

43VE 

JSR  FIXENB 

06VVO 

*  ENAJLE  QUAD  OFFSET 

07000 

4280 

86 

DF 

LDA  A  #QOGO 

07010 

4  2B2 

BD 

439E 

JSR  FIXENB 

0/020 

*  DELAY  WEAPON  EL 

J  7030 

42B5 

7D 

0023 

TST  DEL4 

0  7040 

4288 

26 

OB 

BNE  AG54 

0/050 

42BA 

CE 

03E8 

LDX  #1000 

07060 

42BD 

IjF 

OE 

STX  TI M4 

07070 

42BF 

7C 

OOOD 

INC  TF4 

07080 

42C2 

7C 

0023 

INC  DEL4 

0  7090 

* 

07100 

42C5 

7D 

OOOD 

AG54  TST  TF4 

0  7110 

42C8 

26 

05 

BNE  AG53 

07120 

*  ENABLE  WEAPON  EL 

07130 

42CA 

86 

7F 

LCA  A  #ELGO 

U  7 1  40 

42CC 

3D 

4  3VE 

JSR  FIXENB 

0/150 

*  TEST  EL  CLOSING 

07160 

42CF 

BD 

4CF7 

AG53  JSR  CLEL 

071  70 

42D2 

24 

1  7 

BCC  A<J30 

07180 

*  DISABLE'  QUAD  PITCH 

07190 

42D4 

06 

F7 

LDA  A  #OPGo 
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07200 

42D6 

t»n 

4548 

JSR 

FIXDIS 

07210 

4  209 

7C 

0021 

IMC 

ELLK2 

0  7220 

*  TEST 

DUAL)  PITCH 

0  7230 

42DC 

CE 

07DO 

AG52 

LDX 

#2000 

J  7240 

4  2  DP 

OF 

60 

STX 

CjPLP 

J7250 

42EI 

8D 

4D42 

JSR 

CLOP 

07260 

4  2E4 

24 

Ob 

3CC 

AG30 

7270 

*  DISABLE  ELEVATION 

0  72  BO 

4  2E6 

86 

7F 

AG48 

LDA 

A 

#SLGO 

07290 

42E8 

PD 

4548 

JSR 

FIXDIS 

J7300 

*  TEST 

ENABLES 

J  73 1  0 

42EH 

5F 

AG30 

CLR 

B 

07320 

42EC 

86 

0F 

LDA 

A 

#AZG() 

07  3  30 

42EE 

43 

COM 

A 

0  7340 

42EF 

94 

2D 

AND 

A 

CONGO 

07350 

42FI 

26 

02 

BNE 

AG3I 

07360 

42F3 

C6 

01 

LDA 

B 

#1 

0  73  70 

42F5 

D7 

42 

AG3I 

STA 

B 

AZDAF 

07380 

42F7 

5F 

CLR 

B 

07390 

42F8 

86 

7F 

LDA 

A 

#ELG() 

07400 

42FA 

43 

COM 

A 

07410 

42FB 

94 

2D 

AND 

A 

CONGO 

)  74  20 

42FD 

26 

06 

BNE 

AG34 

0  7430 

42  FF 

C6 

01 

LDA 

B 

#1 

07440 

4301 

D7 

41 

AG49 

STA 

3 

ELDAF 

0  7450 

4303 

20 

12 

BRA 

A335 

07460 

* 

07470 

4305 

D7 

41 

AG34 

STA 

B 

ELDAF 

07480 

4307 

7D 

GOOD 

1ST 

TF4 

07490 

430A 

26 

08 

BNE 

AG  35 

07500 

430C 

7D 

0042 

TST 

AZDAF 

07510 

430F 

2E 

06 

BGT 

A035 

07520 

43 1 1 

7F 

0016 

CLR 

WPNF 

07530 

4314 

7C 

001 A 

INC 

IDLEF 

07540 

*  OUTPUT  ENABLES  AND 

07550 

4317 

96 

20 

AG  35 

LDA 

A 

CONGO 

07560 

4319 

R7 

240D 

STA 

A 

PIA4DB 

07570 

43IC 

7E 

4096 

JNP 

AG7 

DRIVE 


00010 

* 

00020 

********* A GLS 2 ******* 

00030 

* 

00040 

* 

00050 

*  FORM 

CONFIGURATION  WORD 

00060 

* 

00070 

43  IF 

86 

FF 

OCE 

LDA  A 

#$FF 

00080 

4321 

97 

2D 

STA  A 

CONGO 

00100 

*  TEST 

AUTO  AZ 

001  to 

4323 

86 

02 

LDA  A 

#AZPOM 

>0120 

4325 

B  0 

4396 

JSR 

TSTSW 

00130 

4328 

24 

OD 

BCC 

OCEI 

001  40 

432A 

86 

FE 

LDA  A 

#PLG(> 

00150 

432C 

BD 

439E 

JSR 

FIXENB 

00160 

432F 

7F 

0014 

CLR 

AZGOF 

001  70 

4332 

7C 

0014 

INC 

AZGOF 

00180 

4335 

20 

IB 

BRA 

0CE3 

1)01  90 

*  TEST 

PANTEL 

LEVEL 

00200 

4337 

7F 

0014 

OCEI 

CLR 

AZGOF 

00210 

4  33A 

86 

20 

LDA  A 

#PLROM 

00220 

433C 

BD 

4396 

JSR 

TSTSW 

00230 

433F 

24 

05 

BCC 

0CE2 

00240 

4341 

86 

FE 

LDA  A 

#PLGO 

'70250 

4343 

BD 

439E 

JSR 

FIXENB 

00260 

*  TEST 

PANTEL 

OFFSET 

002  70 

4346 

86 

08 

0CE2 

LDA  A 

#P()ROM 

00280 

4348 

BO 

4396 

JSR 

TSTSW 

00290 

434B 

24 

05 

BCC 

OCE3 

00300 

434D 

86 

EF 

LDA  A 

#POGO 

00310 

434F 

BD 

439E 

JSR 

FIXENB 

00320 

*  TEST 

AUTO  EL 

00330 

4352 

86 

01 

OCE  3 

LDA  A 

# EL ROM 

00340 

4354 

BD 

4396 

JSR 

TSTSW 

00350 

4357 

25 

26 

BCS 

0CE6 

00360 

4359 

7F 

0015 

CLR 

ELOOF 

00370 

*  TEST 

QUAD  LEVEL 

00380 

435C 

86 

10 

LDA  A 

#QLRQM 

003V0 

435E 

BD 

4396 

JSR 

TSTSW 

004  00 

4361 

24 

OA 

BCC 

0CE4 

00410 

4363 

86 

FD 

LDA  A 

#OCG() 

004  20 

4365 

BD 

439E 

JSR 

FIXENB 

00430 

4368 

86 

F7 

LDA  A 

#  JPGO 

00440 

436A 

BD 

43VE 

JSR 

FIXENB 

00450 

*  TEST 

DU AD  OFFSET 

00460 

436D 

86 

04 

0CE4 

LDA  A 

#Q()ROM 

004  70 

436F 

BD 

4396 

JSR 

TSTSW 

>0480 

4372 

24 

OA 

BCC 

0CE5 

00490 

4374 

86 

F7 

LDA  A 

#OPG() 

005  00 

4376 

80 

439E 

JSR 

FIXENB 

005 1 0 

4379 

86 

DF 

LDA  A 

#3oGO 

005  20 

437B 

BD 

439F 

JSR 

FIXENB 

00530 

437E 

39 

0CE5 

RTS 

00540 

*  ENABLE  AUTO 

EL 

00550 

437F 

7F 

CO  15 

OCE6 

CLR 

ELOOF 

! 

1 

l 
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70560 

4382 

7C 

0015 

INC 

ELGOF 

011  00 

* 

*70570 

4  385 

86 

FD 

LDA  A 

#QCC<) 

O  It  1  0 

♦  GET  A/0  DATA  ROUTINE 

00580 

4387 

80 

439fc 

JSR 

FIXENB 

01  120 

♦  X*DATA  REG. 

ADDRESS 

C7O5V0 

438A 

86 

F7 

LDA  A 

#QPGO 

DM  30 

* 

3OoO0 

4.I8C 

ao 

43VE 

JSR 

FIKZNB 

on  4o 

43CF 

A6 

02 

GET  LOA  A 

2,X 

t  )06 1 0 

4  38F 

3V 

UTS 

01150 

4301 

0) 

NOP 

UO620 

* 

0M60 

4  302 

01 

NOP 

0*630 

»  .IEAU  CONFIGURATION  SNITCH  register 

01170 

43D3 

A6 

00 

LDA  A 

OtX 

0 0t>4l) 

* 

0U30 

4305 

80 

7F 

SUd  A 

#$7F 

00650 

4  3  VO 

86 

2800 

CoNRO  LDA  A 

PIA0DA 

0  1190 

4  3D7 

3V 

RTS 

J066O 

4JV3 

v7 

2£ 

STA  A 

CtJNTEM 

0/200 

* 

oOo  70 

4  3V5 

3V 

RTS 

0*210 

*  READ  ENCODERS  ROUtlNI 

J06BO 

* 

01220 

♦  ELEVATION  AXIS 

J0690 

*  TEST  CuHFlG 

.  SNITCH  ilORD 

01230 

4308 

CE 

OOBA 

RENCS  LOK 

VELTENP 

•<»  t<\. 

*  OSEf  IF  SW 

OH  lOO  IF  OFF 

0124(7 

4303 

86 

2405 

LDA  A 

WA2DB 

>0710 

* 

J 1 250 

430E 

BD 

4403 

JSR 

STBF 

00/20 

43v6 

94 

2E 

TSTSN  AND  A 

CONTEM 

01260 

43EI 

b6 

240 4 

LDA  A 

Hi *2DA 

0730 

4  398 

27 

02 

BEO 

TSTSI 

.7/2/0 

43E4 

80 

4403 

JSR 

ST0F 

00  74  u 

4  3VA 

OC 

CLC 

0)280 

43F7 

F6 

24  OC 

LDA  B 

PIA4DA 

«>075u 

43VH 

3v 

RTS 

0/290 

43EA 

80 

4400 

JSR 

STBFI 

•  A)  /CO 

43vC 

OD 

TSTS )  SEC 

01300 

A 

>07/0 

4390 

3V 

RTS 

0)3/0 

*  AZIMUTH  AXIS 

U0700 

★ 

01  *20 

43ED 

CE 

OOBF 

LDX 

#AZTEMP 

>0  /VO 

♦FIX  ENABLE 

WORD 

01  330 

4  3F0 

06 

2409 

LOA  A 

PIA3DB 

0(7800 

* 

01340 

4  3F3 

BD 

4403 

JSR 

STBF 

>-08/0 

43Vfc 

94 

2D 

FIXfcNB  AND  A 

CONGO 

0 1  350 

43F6 

B6 

2408 

LOA  A 

PIA3DA 

30/20 

4  3 AO 

97 

20 

STA  A 

CONGO 

0/36  0 

43F9 

BO 

4403 

JSR 

STBF 

GOiiO 

4  3A2 

3V 

RTS 

(71370 

43FC 

86 

240C 

LOA  A 

H I AAOA 

)0  140 

♦ 

01380 

43FF 

BD 

44/2 

JSR 

SfH F2 

j*H50 

*  READ  TRIM  ROUTINE 

01 390 

4402 

39 

RTS 

JOJCU 

*  AZIMUTH 

01400 

* 

AH  Hi 

4  JA  3 

Pc 

24  1  3 

WTRM  LDA  A 

PIA6DB 

014/0 

♦  STORE  DISPLAY  BUFFER 

:’>h  hi 

4JA6 

Cfc 

24/7 

LDX 

♦  SAD6B 

0)420 

* 

lU-IVU 

43AV 

8J 

43C6 

JSR 

SCON 

01430 

4403 

16 

STBF  TAB 

A.VOG 

4  3AC 

ct 

24  15 

LDX 

#Pl A6DB 

0/440 

4404 

BU 

44  12 

JSR 

STBF  2 

/uv  1 0 

4JAK 

fcD 

430' 

JSR 

GET 

0/450 

4407 

03 

INX 

4332 

97 

2F 

STA  A 

A2TRM 

0)460 

4408 

BD 

44  OD 

JSR 

STBFI 

VO 

* 

0)470 

440B 

08 

I  NX 

0  fy40 

♦  ELEVATION 

0/480 

44  OC 

39 

RTS 

i/0v50 

4384 

86 

24 14 

LDA  A 

PIA6DA 

01490 

* 

uOv ‘>0 

4387 

CE 

24  16 

LDX 

#SADOA 

01500 

*  STORE  DISPLAY  BUFFER- 

00  y  7(7 

4  38A 

bD 

43C6 

JSR 

SCON 

01510 

4400 

C4 

OF 

STBF l  AND  a 

«*0F 

O0VM7 

43  bo 

CE 

2414 

LDX 

ARIA6DA 

0/520 

440F 

e  7 

00 

STA  B 

0VX 

M1VV0 

4300 

BO 

43CF 

JSR 

GET 

31530 

44*1 

39 

RTS 

o  i  ooo 

4  3C3 

97 

30 

STA  A 

ELTRM 

31540 

♦ 

vll7»0 

4  3C5 

39 

RTS 

0  J  550 

*  STORE  DISPLAY  BUFFER- 

/  /2c* 

♦ 

0)560 

4412 

44 

STBF 2  LSR  A 

OJ  »/3u 

♦  STROBE  CONTROL  PULSE! 0  RtO) 

01570 

44*3 

44 

LSR  A 

ol  1.40 

* 

(7/580 

4414 

44 

LSR  A 

J//50 

4306 

C6 

3c 

SCON  Li -A  B 

#$3E 

0/590 

4415 

44 

LSR  A 

j\  )('  0 

4jJh 

b7 

00 

STA  e 

0,X 

OJ  600 

44)6 

A7 

00 

5TA  A 

O.X 

0107-0 

4  3CA 

C6 

36 

LDA  8 

#$36 

0/610 

4418 

39 

RTS 

UlO  <0 

**  3CC 

tr.7 

oo 

STA  a 

0,X 

01620 

* 

Oh  VO 

43CE 

39 

RTS 

01630 

*  REAU  GACS  ROUTINE 

li 


4. 


PAGE 

019 

AGLS 

PAGE 

020 

AGLS 

01640 

* 

02180 

44  72 

54 

LSR 

B 

01650 

4419 

01 

RGACS 

NOP 

02190 

44  73 

Dl 

81 

CMP 

B 

THI 

01  660 

*  ELEVAT1 ON 

02200 

4475 

2D 

09 

8  LI 

TVAL2 

01  670 

441 A 

BO 

45E3 

JSR 

RELGAC 

022 10 

44  77 

2E 

05 

BGT 

TVAL4 

01680 

*  AZIMUTH 

02220 

4479 

70 

0086 

TST 

TF 

01690 

44  1 D 

86 

2403 

LOA 

A 

GCSAZ 

02230 

44  7C 

27 

02 

BEO 

TVAL  2 

01  700 

4420 

64 

3F 

AND 

A 

#*3F 

02240 

447E 

OD 

TVAL4 

SEC 

017  10 

4422 

81 

36 

CMP 

A 

*$36 

02250 

44  7F 

39 

RTS 

Ul  720 

4424 

27 

01 

8EQ 

RGACI 

02260 

* 

01730 

4426 

39 

RTS 

02270 

4480 

OC 

TVAL2 

CLC 

01  740 

4427 

B6 

2401 

RGACI 

LOA 

A 

PIAIDB 

02280 

4481 

39 

RTS 

Ul  750 

442A 

43 

COM 

A 

02290 

* 

0  1 760 

4428 

CE 

0603 

LDX 

#$0603 

02300 

*  READ 

ANALOG 

ERROR  VOLTAGES 

01  770 

44  2E 

OF 

81 

STX 

THI 

02310 

* 

01  730 

4430 

BO 

4458 

JSR 

TVAL 

02320 

4482 

4F 

RAEV 

CLR 

A 

01790 

44  33 

25 

16 

BCS 

RGAC2 

02330 

4483 

97 

3C 

STA 

A 

MUXADD 

0 1 800 

4435 

97 

87 

STA 

A 

GACTEM 

02340 

4485 

C6 

05 

LDA 

B 

#5 

01310 

* 

02350 

4487 

CE 

0035 

LDX 

#E  RRBUF 

01820 

4437 

B6 

2400 

LDA 

A 

P I A  1  DA 

.12360 

*  SETUP  FOR  REPEATED  TRY'S 

01830 

443A 

43 

COM 

A 

02370 

448A 

97 

3E 

RAEV5 

STA 

A 

PREVAL 

01340 

4438 

CE 

0909 

LDX 

#$0909 

02380 

44 8C 

86 

05 

LDA 

A 

#5 

01850 

443E 

OF 

81 

STX 

THI 

02  390 

448E 

97 

3D 

STA 

A 

NUMRED 

01860 

4440 

BO 

4458 

JSR 

TVAL 

02400 

*  LOOP 

ON  A/D 

CHANNELS 

01870 

4443 

25 

06 

BCS 

RGAC2 

02410 

4490 

86 

34 

RAEV2 

LDA 

A 

#$34 

01880 

4445 

97 

88 

STA 

A 

GACTEM*  1 

02420 

4492 

37 

24  12 

STA 

A 

SAD5 

01890 

*  FIX 

DISPLAY 

BUFFER 

02430 

4495 

96 

3C 

LDA 

A 

MUXADD 

01900 

*  AZIMUTH 

02440 

4497 

B7 

24  11 

STA 

A 

PIA5DB 

01910 

444  7 

DE  87 

LDX 

GACTEM 

02450 

*  100  l 

USEC 

DELAY 

01920 

4449 

DF 

33 

STX 

AZGCS 

02460 

449 A 

86 

10 

LDA 

A 

#16 

01930 

444B 

CE 

009 A 

RGAC2 

LDX 

#AZQCDS 

02470 

449C 

4A 

RAEV4 

DEC 

A 

01940 

444E 

96 

33 

LDA 

A 

AZGCS 

02480 

449D 

26 

FD 

BNE 

RAEV4 

01950 

4450 

80 

4403 

JSR 

STBF 

02490 

44 9F 

R6 

3C 

LDA 

A 

#$3C 

J 1 960 

4453 

96 

34 

LDA 

A 

AZGCS* 1 

026  UO 

44  A  1 

87 

24  12 

STA 

A 

SAD5 

01  970 

4455 

BD 

4403 

JSR 

STBF 

02510 

*  WAIT 

EOC 

01980 

4458 

6F 

00 

CLR 

o.x 

02520 

44  A4 

06 

20 

LDA 

A 

#32 

01990 

445A 

39 

RTS 

02530 

44A6 

4A 

RAEV3 

DEC 

A 

02  000 

* 

>2540 

44A  7 

26 

FD 

BNE 

R\EV3 

02010 

*  TEST 

GACS  VALUES 

02550 

*  READ 

AND 

STOP::  DATA 

02020 

* 

02660 

44A9 

36 

2410 

lca 

A 

PIA6DA 

02030 

AAob 

7F 

0086 

tval 

CLR 

TF 

02570 

*  TEST 

FOR 

CO NS EC.  READINGS 

02040 

445E 

16 

TAB 

02580 

44AC 

91 

3E 

CMP 

A 

PREVAL 

02050 

445F 

C4 

OF 

AND 

B 

#$F 

J2590 

44AI 

26 

DA 

WE 

KAEV5 

02060 

4461 

Cl 

09 

CMP 

8 

#9 

02600 

44  bO 

7A 

00 3D 

DEC 

NUMRED 

02070 

4463 

2F 

02 

BLE 

TVAL3 

02610 

4483 

26 

DB 

BNE 

RAEV2 

02080 

4465 

OD 

SEC 

02 620 

4486 

A7 

00 

STA 

A 

O.X 

02090 

4466 

39 

RTS 

02630 

4487 

08 

INX 

02100 

4467 

D1 

82 

TVAL3 

CMP 

B 

TLO 

02640 

4488 

96 

3C 

LDA 

A 

MUXADD 

02110 

4469 

2F 

03 

BLE 

TVALI 

02660 

44  8A 

8B 

10 

ADD 

A 

#110 

02120 

446B 

7C 

0086 

INC 

TF 

02660 

44  BC 

97 

3C 

STA 

A 

MUX A DO 

02130 

* 

026  70 

44BE 

5A 

DEC 

B 

02140 

446E 

16 

tvali 

TAB 

02680 

44BF 

26 

C9 

BNE 

HAEV5 

02150 

446F 

54 

LSR 

B 

02690 

44CI 

7F 

24  11 

CLR 

PIA5DB 

02160 

4470 

54 

LSR 

B 

02  7(30 

44C4 

39 

RTS 

021  70 

4471 

54 

LSR 

B 

02710 

* 

PAGE  021 


AGLS 


PAGE 


022  AGLS 


02720 

*  TEST 

PIA8  SWITCHES  ( B  SIDE) 

03260 

451  B 

24 

OF 

BCC 

SLPOl 

02  7  30 

*  C  SET  IF  S« 

ONIC-O  IF  OFF 

03270 

451 D 

CE 

0300 

LDX 

#L0AD2 

02740 

* 

03280 

* 

02750 

44C5 

b4 

24  11)  T5TS8B 

AND  A 

PIABDB 

03290 

4520 

86 

40 

LDA  A 

#LDP2N 

02  760 

44CH 

27 

02 

BEQ 

TST8) 

03300 

4522 

BD 

4396 

JSR 

TSTSW 

02  7/0 

44CA 

OC 

CLC 

03310 

4525 

24 

OF 

BCC 

SLP03 

02 /HO 

44CB 

39 

RTS 

03320 

4527 

CE 

0500 

LDX 

#LOA04 

>2  790 

440C 

OD 

TST81 

SEC 

03330 

452A 

20 

OA 

BRA 

SLP03 

02  3 -X 

44CG 

3V 

RTS 

03340 

* 

J2  i  1 0 

* 

03350 

452C 

86 

40 

SLPOI 

LDA  A 

#LDP2M 

02.320 

*  TEST 

PIA8  SWITCHES  (A  SIDE) 

0  3  160 

452E 

BD 

4396 

JSR 

TSTSW 

02330 

*  C  SET  IF  S.1 

ONiC-0  IF  OFF 

03370 

4531 

24 

03 

BCC 

SLP03 

J2840 

4 

033Q0 

4533 

CE 

0400 

LDX 

#L0AD3 

J2550 

44CE 

84 

24  1C  TSTS8A 

AND  A 

pi A8DA 

03390 

* 

VH60 

4401 

27 

02 

8EQ 

TST82 

03400 

4536 

DF 

31 

SLP03 

STX 

ELGCS 

028  70 

4433 

OC 

CLC 

0  3410 

*  FIX 

DISPLAY 

BUFFER 

02800 

4404 

3V 

RTS 

0  3420 

4538 

CE 

008B 

LDX 

#ELGCDS 

028  VO 

4405 

OD 

TST82 

SEC 

03430 

453B 

96 

31 

LDA  A 

ELGCS 

02  V'X) 

44  D6 

39 

RTS 

03440 

45  3D 

BD 

4403 

JSR 

STBF 

02vlo 

* 

0  1450 

4540 

96 

32 

LDA  A 

ELGCS4 1 

02v  20 

*  SET 

RU  FLAGS 

03460 

4542 

BD 

4403 

JSR 

STBF 

J2930 

* 

034  70 

4545 

6F 

00 

CLR 

o,x 

J2V40 

4407 

70 

001 B  SRUF 

TST 

RUCMF 

03400 

4547 

39 

RTS 

02950 

440  A 

26 

IA 

BNE 

SRUF  3 

0  3490 

* 

02  V60 

4  4  DC 

86 

10 

LDA  A 

#WUO(R 

03500 

* 

02970 

44  D£ 

BD 

44CE 

JSR 

T5TS8* 

03510 

* 

02930 

44E 1 

24 

03 

BCC 

SRUF  1 

03520 

*  FIX 

DISABLE 

routine 

3?  WO 

44E3 

7C 

001  B 

INC 

HUCMF 

03530 

* 

0  3000 

* 

03j  40 

4548 

43 

FIXDIS 

COM  A 

U3G 1  0 

44  E6 

7D 

0024  SRUF l 

TST 

RUCCMF 

03550 

4549 

9A 

2D 

ORA  A 

CONGO 

03020 

44E9 

26 

IF 

BNE 

SRUF4 

03-560 

454B 

97 

2D 

STA  A 

CONGO 

03030 

44EB 

86 

20 

LDA  A 

fRUCCMM 

035  70 

454D 

39 

RTS 

030  40 

44ED 

BD 

44  CE 

JSR 

TSTS8A 

03580 

* 

0  3050 

44F0 

24 

03 

BCC 

SRUF2 

03590 

*  TEST  OFFSET 

ERRORS 

0  3060 

44F2 

7C 

0024 

INC 

RUCCMF 

036  OU 

*  C  3tT«C!FFSET»M.L»MED 

03070 

44F5 

39 

SRUF  2 

RTS 

03610 

★  C*0 

OFFSET  i 

[JK 

0  3080 

44F6 

7F 

0024  SRUF 3 

CLR 

RUCCMF 

03620 

* 

03090 

44F9 

86 

20 

LDA  A 

MRUCCMM 

03630 

454E 

CE 

0035 

TERR 

LDX 

4ERRBUF 

03100 

44FB 

BD 

44CE 

JSR 

T5TS8A 

03640 

4551 

5A 

DEC  B 

03110 

44  FE 

24 

F5 

BCC 

SRUF2 

03650 

4552 

D7 

83 

STA  B 

HoLDB 

03120 

4500 

7F 

001 B 

CLR 

RUCMF 

03660 

4554 

27 

04 

BEQ 

TERRI 

03130 

4503 

7F 

0024 

CLR 

RUCCMF 

C  3670 

* 

03140 

4506 

7C 

0024 

INC 

RUCCMF 

03630 

4556 

00 

TPRR2 

INX 

03150 

4509 

39 

RTS 

03690 

4557 

5A 

DEC  B 

03160 

450A 

7D 

OOIB  SRUF4 

TST 

RUCMF 

J3700 

4  b 

26 

FC 

BNE 

TERR  2 

031  70 

450D 

27 

E6 

BEQ 

SRUF2 

J  371  0 

455A 

A6 

00 

TERRI 

LDA  A 

Or  X 

031  BO 

450F 

7F 

0024 

CLR 

RUCCMF 

03  720 

4  55C 

CE 

4574 

LDX 

rfSRRVAL 

031  VO 

4512 

39 

RTS 

03/30 

455F 

D6 

83 

LDA  B 

HOLDB 

03200 

* 

)  J  740 

4561 

27 

04 

H-.Q 

TERM 

03210 

*  SET 

LOAD  POSITION 

>3750 

4563 

06 

TEI.-R3 

I  *X 

03220 

* 

>  3760 

456<* 

5A 

JEC  B 

03230 

4513 

CE 

0200  SLPOS 

LDX 

4L0ADI 

037/0 

4560 

26 

FC 

b.*h 

TERR3 

03240 

4516 

86 

80 

LDA  A 

#LDPIM 

uJ/CO 

4567 

E6 

00 

TERR  4 

I.U  B 

0,X 

03250 

4518 

BD 

4396 

JSR 

TSTSW 

0  3 /VO 

4569 

40 

rsr  a 

.'V4 


AGLS 


AJI.S 


JjHX  4*>6A 

,  A 

01 

JPL 

It  4,0 

.)  'MU 

* 

jj.v'o  <*goc 

4() 

Jb  i  A 

>jblu  450,' 

1 1 

TfcIHb 

CbA 

.)  1040  4i>ofc 

?\ 

02 

VL 

TERRb 

J.ISVA,  45  70 

oc 

CLC 

>3860  4b /I 

3v 

RTS 

>3  ’  70 

* 

i/,0  45  72 

•>Li 

Tt-  RK5 

SEC 

J  JO  9U  4b  7  3 

3v 

.Mo 

■3vno 

' 

* 

J39IO 

* 

U3v2J 

4b  7 4 

Ekwval 

tou 

A 

0  3V  30  4574 

OA 

rCb 

EJP 

.)  J  >  40  45 /b 

Ob 

bC3 

tx 

>395C  4b 7o 

Ob 

r*C3 

IMP 

>3960  4b 77 

05 

be  a 

e*c 

•JjWO  4570 

01 

HC  B 

ERA 

:3vf;o 

* 

0  3  WO 

*  Ci^CK  OFrSFTS  AND  CONTROL  u(h 

J4000 

* 

J4.JI0  45  7V 

7b 

0027 

CKC 

Cl  H 

C<OF 

>4020  4  5  7C 

C6 

Ob 

ITA  B 

»o 

J4»)3u  457b. 

U7 

1A 

•STA  H 

SAVB 

;4G4U  4tH0 

7b 

0040 

CU 

EFLAG 

>4050  4503 

7  b 

no  A  A 

CL  ft 

aeut 

J4060  4b  JO 

7  b 

OUA  V 

CL  7 

fcLLIT 

1 4o70  4b  ’y 

D6 

3  A 

CKO  2 

U>A  H 

SAVb 

j40r.o 

a  CALL 

TEST 

ERROR 

J40V0  4bdB 

BD 

454  c 

JSR 

TERR 

)4 1  00 

a  SETUP  ERROR  ftORD  FOR  DISPLAY 

)4  1  10  45GE 

24 

37 

BCC 

CKO  8 

;4I?0  4bVU 

7C 

0040 

INC 

EFLAG 

>4(30 

A 

0**  1  40  4593 

D6 

PA 

LDA  3 

SAVb 

04150  4tvb 

Cl 

Ob 

C’4P  B 

A  J 

>4  160  45  V  7 

26 

06 

BNt 

C<(>4 

04170  45 /V 

E6 

04 

LDA  A 

#4 

>41  HO  45vt 

9  A 

AA 

CM  A 

AELIT 

>4  190  4b9D 

97 

AA 

STA  A 

azlit 

>4  POO 

* 

042  JO  459b 

Cl 

04 

CKO  a 

CMp  H 

#4 

04220  45A1 

26 

06 

BNF 

CKOb 

04230  4bA3 

86 

02 

I.JA  A 

#2 

>4240  45A5 

VA 

AA 

ORA  A 

a^li  r 

>4250  45A7 

V7 

AA 

STA  A 

A2LIT 

04250 

* 

■.>•♦270  4b  W 

Cl 

03 

CKOb 

CAP  H 

I  #3 

0*2*0  45A0 

26 

06 

d’Jc 

C<(>6 

04290  45 Ai/ 

36 

01 

LJA  A 

>  #1 

04  100  45Ab 

v  A 

AA 

ORA  A 

A.ai  r 

>4  nO  45;il 

97 

AA 

STA  A 

i  A/.LIT 

,>4320 

* 

04310  45.0  C  1 

j? 

CK06 

C  AP  t 

\  *> 

04  340 

45  Bb 

26 

06 

ir.L 

-  07 

'>4350 

45b  7 

86 

02 

L3A  A 

h 

04360 

4b  39 

vA 

A  9 

OKA  A 

iLLIT 

>4770 

4b  BL 

97 

A9 

STA  A 

t-LLI  I 

;4  J80 

A 

J43V0 

45BD 

Cl 

01 

CK07 

CMP  >1 

*1 

>4400 

4b  Hb 

26 

06 

BNE 

CKOB 

J44  10 

45CI 

P6 

01 

LDA  A 

4  1 

J4420 

45C3 

9A 

A9 

OR  A  A 

GLUT 

04430 

4bC5 

97 

A9 

STA  A 

ELL  I  T 

04440 

A 

04450 

45C7 

7A 

008A 

CKOS 

DEC 

oAVB 

04460 

4b  C  A 

26 

BD 

ONE 

C<02 

044  70 

A 

TEST 

GO/NO-GO 

•J44U0 

45CC 

70 

0040 

TST 

EFLAG 

04490 

45  CF 

26 

09 

BNG 

CKO  1 

04500 

A 

ENABLE  GO 

04b  1 0 

4501 

06 

36 

LDA  A 

#$36 

04520 

45D3 

b7 

24  IF 

STA  A 

LAMP 

J4530 

4506 

7C 

0027 

INC 

CKOF 

J4b40 

4b  D9 

3V 

RTS 

04550 

A 

ENABLE  NO-GO 

04560 

45DA 

86 

3E 

CK01 

LDA  A 

#S3E 

04570 

450C 

B7 

24  IF 

STA  A 

LArtk 

04580 

45  DF 

7C 

0027 

INC 

CKOF 

04590 

45E2 

39 

RTS 

04600 

A 

04610 

A 

READ 

ELEVATION  GACS 

04620 

A 

04630  45E3 

86 

2402 

RELGAC 

IDA  A 

GCSEL 

04640 

45  S6 

84 

3F 

AND  A 

#$3F 

04650 

45E8 

81 

36 

CMF  A 

#$36 

04660 

45  E  A 

27 

01 

BfcU 

RELI 

>4670 

45EC 

39 

RTS 

04680 

A 

READ  GACS 

04690 

45  ED 

B6 

2401 

HELI 

LDA  A 

PIAIOB 

04  700 

45FO 

43 

COM  A 

04710 

45FI 

CE 

0103 

LDX 

#$0103 

04720 

45F4 

DF 

81 

STX 

THI 

04730 

45F6 

BD 

445B 

JSR 

TVAL 

04740 

45FV 

25 

16 

BCS 

REL2 

04750 

45FB 

97 

87 

STA  A 

CACTEM 

04760 

A 

04  770 

45FD 

B6 

2400 

LDA  A 

PlAIDA 

04700 

4600 

43 

COR  A 

04790 

460J 

CE 

0909 

LDX 

#$0909 

04800 

4604 

DF 

61 

STX 

THI 

04810 

4606 

BO 

445B 

JSR 

TVAL 

04820 

4609 

25 

06 

BCS 

REL2 

0483  0 

460B 

97 

88 

STA  A 

GACTEM#  1 

04840 

A 

FIX 

DISPLAY 

BUFFER 

04850 

460D 

DE 

87 

LDX 

GACTEM 

04860 

460F 

DF 

31 

STX 

ELGCS 

04870 

4611 

CE 

008B 

RSL2 

LDX 

#elgcds 

PAGE  025  AGLS 

PAGE  026  AGL'J 


04080 

4614 

96 

31 

LDA  A 

ELGCS 

04090 

4616 

BD 

4403 

JSR 

STBF 

0542o 

4659 

4F 

CLR 

A 

04900 

4619 

96 

32 

LDA  A 

ELGCS* 1 

>54  30 

465A 

DO 

2F 

LDA 

B 

AZTRM 

04910 

461  B 

BD 

4403 

JSR 

STBF 

>5440 

465C 

2A 

04 

BPL 

C  >PAZ1 

04920 

461 E 

6F 

00 

CLR 

o.x 

05450 

465b 

7C 

0026 

INC 

SIG 

049 30 

4620 

39 

RTS 

J5460 

4661 

50 

NEG 

B 

04940 

* 

054  70 

4662 

01 

C0PAZ1  NOP 

04950 

♦  TEST 

AZ  ERR 

RANGE 

J5480 

4  663 

01 

NOP 

04960 

4  (D/A 

FORMAT) 

05490 

4664 

5D 

476E 

JSR 

BINBCD 

.>4970 

* 

055  Oo 

* 

ADO  TRIM 

TO 

ENCODER  READING 

04980 

4621 

DE 

53 

TAZERW 

LDX 

AZERR 

05510 

4667 

Ct 

OOBO 

LDX 

fTEMBCD 

04990 

4623 

C6 

01 

LDA  B 

fAZLIM 

05520 

4  66 A 

DF 

62 

srx 

A 1 

05000 

4  625 

BD 

4631 

JSR 

TSTIT 

05530 

4  66C 

CE 

OOBE 

LDX 

#AZTEMP 

05010 

4628 

39 

RTS 

05540 

466F 

DF 

64 

STX 

A2 

05020 

*" 

J5550 

4671 

CE 

00  B9 

LDX 

# RESULT* 4 

05030 

*  TEST 

EL  ERR 

RANGE 

05560 

4674 

BD 

47FE 

JSR 

BCDADD 

0504U 

* 

0  55  70 

* 

ADJUST  FOR 

ROLLOVER 

05050 

4629 

DL 

55 

TbLERR 

LDX 

ELERR 

05500 

4677 

ce: 

009F 

LDX 

tAZDISP 

05 060 

4  62b 

C6 

01 

LDA  3 

#ELLIM 

05590 

4o7A 

BD 

48A3 

JSR 

ADJ 

05070 

4620 

BD 

4631 

JSR 

TSTIT 

05600 

* 

SUBTRACT 

RESULT  FROM  GACS 

>5080 

46  30 

39 

RTS 

056  1C 

* 

J5090 

# 

056  2C 

4670 

CE 

00  VF 

LUX 

#AZDISP 

051  oo 

* 

05630 

4680 

DF 

68 

STX 

S2 

•5110 

*  TEST 

U/A  FORMAT 

>5640 

4682 

CE 

00 9 A 

LDX 

AAZGCDS 

05120 

* 

05650 

4685 

DF 

66 

STX 

SI 

05130 

4631 

OF 

89 

TSTIT 

ST* 

SAVA 

05660 

4687 

CE 

00B5 

LDX 

M  RESULT 

’)'j  1  40 

4  FIX  FOR  SIGN 

05670 

4 68 A 

BD 

4855 

JSR 

BCDSUB 

1 50 

4633 

7D 

0089 

TST 

SAVA 

05680 

* 

ADJUST  FDH 

ROLLOVER 

06  1  60 

4636 

2A 

06 

8PL 

T5TI 3 

05690 

463D 

ce: 

00  A4 

LDX 

4AZERD 

05 1  7(j 

40  30 

96 

89 

LDA  A 

SAVA 

05700 

4690 

bj 

48A3 

JSR 

AJJ 

05 1  HO 

463A 

84 

7F 

AND  A 

#S7F 

>5710 

* 

FIX  FOR  i 

►  OR  -  32000 

>5  190 

46.3C 

97 

89 

STA  A 

SAVA 

05720 

4693 

7F 

0026 

CLR 

SIG 

05200 

* 

05730 

469o 

CE 

00  A  4 

LDX 

#AZERD 

>5210 

46  Jt 

96 

89 

TSTI3 

LDA  A 

SAVA 

>5740 

4699 

BD 

48CD 

JSR 

TEST32 

05  -5  0 

4  040 

04 

OF 

AND  A 

#$F 

05  750 

469C 

24 

IF 

BCC 

C0PAZ3 

>5230 

4642 

27 

02 

8EQ 

TSTI  I 

05760 

* 

FIX  IF  > 

32000 

05240 

4044 

OQ 

SEC 

J5770 

469E 

CE 

00A4 

LDX 

# AZERD 

>5250 

4645 

39 

RTS 

057b(> 

46A  l 

DF 

62 

STX 

A 1 

0  5260 

4  CHECK  LSb 

05790 

46A3 

BD 

47DO 

JSR 

NINCOM 

)52  70 

4  C  46 

96 

8A 

TSTI1 

LDA  A 

SAVB 

05000 

46A6 

CE 

46PA 

LDX 

# Const 

>5/ HO 

4c.  48 

1  1 

CBA 

U58I0 

46AV 

DF 

64 

STX 

A2 

05 '•90 

4649 

01 

NOP 

05820 

46AB 

CE 

00  B  9 

LDX 

#RESULT*4 

05  300 

4  64A 

22 

02 

BHI 

TSTI  2 

05030 

46AE 

BD 

4  7FE 

JSR 

BCDADD 

05  310 

46  4C 

OC 

CLC 

05840 

* 

>5320 

4<  40 

39 

RTS 

05350 

4601 

CE 

00  A  4 

LDX 

#AZERD 

05  130 

4c4E 

00 

TSTI2 

SEC 

J5J60 

4634 

BD 

4902 

JSR 

XFER 

340 

464F 

39 

RTS 

053  70 

* 

O'.  jv. 

* 

05880 

4687 

7F 

0026 

CLR 

SIG 

1.5  360 

4  COMPUTE  AZ  ERROR 

05390 

46BA 

7C 

0026 

INC 

SIG 

>53/(; 

k 

05900 

* 

TEST  MAGNITUDE  OF  DISPLAY  VALUE 

o3>  0 

4(  5J 

7r 

0026 

Confab 

CLR 

SIG 

059  10 

46BD 

CE 

00A4 

C0PAZ3  LDX 

* AZERD 

Vj  190 

•1  C.5  3 

7r 

00 2C 

■:lr 

DISAZ 

05920 

46C0 

BD 

48  DF 

JSR 

TESTM 

)54  0(> 

46  JO 

Ct 

OOf'O 

LDX 

4  TEM3CD 

05V30 

* 

FIX  SIGN 

OF 

DISPLAY 

>54  15 

4  CONCERT  TRIM  To  BCD 

05940 

46CJ 

06 

02 

I.  DA 

A 

#2 

>5950 

46C5 

7l> 

0026 

TST 

SIG 

PACE  0.-'/  AG’L'i 


05960 

46C8 

21 

02 

BE  3 

C0PAZ2 

»5v  70 

4  6CA 

86 

01 

LDA 

A 

#1 

j*>;ho 

46CC 

97 

A  4 

C0PAZ2  5TA 

A 

AZERD 

-)r)W0 

* 

CONVERT  ERROR  TO  BINARY 

JO000 

46Cfc 

CE 

00  A  4 

LDX 

♦AZERD 

MC  10 

4601 

BO 

49  ID 

JSR 

BCDBIN 

J6020 

4604 

DE 

53 

STX 

AZERR 

06030 

4606 

7C 

002C 

INC 

DISAZ 

J604Q 

4609 

3V 

RTS 

06050 

460A 

06 

CONST  FCB 

6, 4, 0,0,0 

460o 

04 

460C 

00 

46  DO 

00 

46DE 

00 

06060 

46DF 

03 

C0NST2  FCB 

3, 6, 0,0,0 

46E0 

06 

4ot  1 

00 

46E2 

00 

4o£3 

00 

06070 

★ 

060 no 

* 

COMPUTE  ELEVATION  ERROR 

06090 

* 

06100 

46 14 

7F 

0026 

COMPEL  CLR 

SIC 

06110 

46E7 

7F 

0028 

CLR 

DISEL 

061  20 

46EA 

CE 

ooao 

LDX 

ATEMBCD 

JO  1  30 

* 

CONVERT  I 

rRiM  ro  bcd 

06140 

46ED 

4F 

CLR 

A 

)6 1  50 

46EE 

D6 

30 

LDA 

B 

ELTH  U 

>6160 

46F0 

2A 

04 

8PL 

COPELI 

J6I  70 

46F2 

7C 

0026 

INC 

SIC 

06100 

46F5 

50 

NEG 

B 

)6  1  90 

46F6 

01 

COPELI  NOP 

06200 

46F7 

01 

NOP 

06210 

46F8 

DO 

476E 

JSR 

BINBCD 

06220 

* 

ADD  TRIM 

TO 

ENCODER  READING 

06230 

46FB 

CE 

OOBO 

LDX 

♦TEMBCD 

06240 

46  FE 

DF 

62 

STX 

A 1 

06250 

4700 

CE 

OOBA 

LDX 

♦ELTEMP 

0o?60 

4703 

DF 

64 

srx 

A  2 

06270 

4  705 

CE 

00B9 

LDX 

♦RESULT* 4 

062  bO 

4  708 

BD 

47FE 

JSR 

BCDADO 

06290 

* 

ADJUST  FOR 

ROLLOVER 

06300 

4  70B 

CE 

0090 

LDX 

♦ELDISP 

06310 

470E 

BO 

48A3 

JSR 

ADJ 

06320 

* 

SUBTRACT 

RESULT  FROM  GACS 

06  330 

471  1 

CE 

0090 

LDX 

♦ELDISP 

06340 

4714 

DF 

68 

STX 

S2 

06350 

4716 

CE 

0Q8B 

LDX 

♦ELGCDS 

06  360 

4719 

DF 

66 

STX 

SI 

06370 

47 1  b 

CE 

00  B5 

LDX 

♦RESULT 

06380 

4  71 E 

BD 

4855 

JSR 

BCDSUB 

06390 

* 

ADJUST  FOR 

ROLLOVER 

06400 

4721 

CE 

0095 

LDX 

#ELERD 

06410 

4  724 

BD 

48A3 

JSR 

ADJ 

PAGE 

028 

AGLS 

06420 

* 

FIX  FOR  * 

OR  -  32000 

06430 

4/27 

7F 

0026 

CLR 

SIC 

06440 

472A 

CE 

0095 

LDX 

♦ELERD 

06450 

4  7  2D 

BD 

4  BCD 

JSR 

TEST32 

06460 

4730 

24 

IF 

BCC 

C0PEL3 

064  70 

* 

FIX 

IF  > 

32000 

06480 

4732 

CE 

0095 

LDX 

#ELERD 

06490 

4735 

DF 

62 

STX 

A  1 

06500 

4737 

BD 

4  7  DO 

JSR 

NINCOM 

06510 

473A 

CE 

46DA 

LuX 

♦CONST 

06520 

47  3D 

DF 

64 

STX 

A2 

06530 

473F 

CE 

00  BV 

LDX 

♦RESULT* 4 

06540 

4742 

BD 

47FE 

JSR 

BCDADD 

06550 

* 

06560 

4745 

CE 

0095 

LDX 

f  sLERD 

06570 

4748 

BD 

4902 

JSR 

XFER 

06580 

* 

06590 

4740 

7F 

0026 

CLR 

SIG 

06600 

474b' 

7C 

0026 

INC 

SIG 

06610 

* 

TEST 

MAGNITUDE  OF  D1S1 

06620 

4751 

CE 

0095 

C0PEL3 

LDX 

♦ELERD 

06630 

4  754 

BD 

48DF 

JSR 

TESTM 

06640 

* 

FIX  : 

SIGN 

OF 

DISPLAY 

06o50 

4757 

86 

02 

LDA 

A 

♦2 

06660 

4  759 

70 

0026 

TST 

SIG 

066  70 

475C 

27 

02 

3E0 

COPEL2 

0o680 

475E 

86 

01 

LDA 

A 

#  l 

06690 

4  760 

97 

95 

C()PFL2 

STA 

A 

ELERD 

06/00 

* 

CONVERT  ERROR  To  BINAf 

06  710 

4  762 

CE 

0095 

LDX 

♦  ELERD 

06  720 

4765 

BD 

49  ID 

JSR 

BCDBIN 

)o730 

4768 

OK 

55 

STX 

El. ERR 

06740 

4  76A 

7C 

002b 

INC 

DISEL 

J6  750 

4760 

39 

RTS 

06760 

* 

>6  770 

* 

B INARY-BCD 

CONVERSION 

06700 

* 

X-ADDRESS 

i  OF  RESULT! 5 

06/90 

* 

A  ,  rt= 

HINA  -fY 

VALUE 

>6800 

* 

JdH  1  0 

476E 

DF 

70 

BINBCD 

STX 

MOLDX 

06820 

4  770 

DF 

6E 

STX 

OUTX 

06B30 

4772 

DF 

74 

STX 

s  torx 

06840 

4774 

DF 

62 

STX 

A  1 

06850 

* 

06360 

4  776 

CE 

2710 

LDX 

♦  1  0000 

>68  70 

4779 

BD 

47  Ah 

JSR 

TIZ 

068^0 

4  77C 

CE 

03E8 

LDX 

♦  1  000 

J6390 

4  77F 

BO 

4  7  Ah 

JSR 

HZ 

06900 

4742 

CE 

006* 

LDX 

#100 

06910 

4  785 

BD 

4  7Ah 

JSR 

TIZ 

)6v2U 

4738 

CE 

OOOA 

LDX 

♦  10 

•69  30 

4  788 

BL) 

47AF 

JSR 

nz 

I6S.4Q 

4  7‘<F 

DE 

6E 

LDX 

OUTX 

>6950 

47  70 

F.7 

oo 

STA 

B 

o,x 

A  M  > 


RA^F  0 30  AOLS 


i696( 
J6V  70 
Ofiv'liC 
>6990 
J  /uuu 
‘ .  10 

o/o;u 
)  /040 
•>  7u50 


4  /V2 
4  ?Vb 

4/V7 

4  7  y< 

4  /VA 

4  /VL 
4  *  A  j 
4  /a; 
4  7A5 
4  / 

4  i  \A 
4  /  A,. 


0026 

01 


70 

4  /n ) 

46[-A 

64 

o:)BV 

4?FE 

74 

4  V(>2 


*  Ifcsr  SIGN  FLAG 

TST  Sio 

■LIE  BIN  I 

wrs 

*  CoMk!  EMENT  RESULT 
*JM 


LDX 

HOLVX 

JSR 

NINCOM 

LUX 

#C«NST 

srx 

A? 

LDX 

•RESULTS 4 

JSR 

BCDAUD 

LDX 

S  fORX 

JSR 

XFER 

RTS 

(Non  64000) 


Ml 
i)  '  I  ,'i 
■  i  I  Jt 
'  4< 

>  M  * 

-  /  r  r-u 

/l.i  . 

:  /Ui. 
•  /,’! 

>  •  J 

>  I  . 


)  ’• 

1  ^ 

0  73*  K. 
'Ml 
)  '  *./  0 
;  7  3  30 

)  l  iftO 
J '  /  C 
>7  WC 
>7390 
0  /4'K 
O  /4J0 
0  74/  ■ 

■  74  <(j 
I  i  iA 
)  74  , 

)  74;,: 

>  74  70 

>  /4M) 

•  /  4»/l, 


4  7Ai 

4  .ii  » 
4  7  33 
4  /  iJ-j 

4  /:«/ 
4  7  L>y 
4  /.•••• 

4  7.10 
4  7/0 

4  7.4 
4  ,  C> 
4  / 1  0 

4  7C9 
4  7  :b 
4  7/U 
4  /(  f 


>2 

0)7E 
7r 
M  ) 

73 
7  2 
Ob 
/0/E 
F  I 


*  TEST  NUMBER  OF  TIMES  VALUE  DIVISIBLE 
TIZ 
11/.? 


6E 

ik 

7K) 

7F 

HO 


*  FAIL 
TUI 


SIX 

nzx 

CLR 

CNX 

STA  A 

OLDAX 

STA  B 

OlDBX 

l  SUBTRACT 

SUB  3 

rizx+i 

SBC  A 

nzx 

BCS 

TIZI 

INC 

CNX 

dRA 

TIZ2 

SUBTRACT 

LDX 

mm 

LDA  A 

cvx 

STA  A 

0.x 

INX 

STX 

OUTX 

LDA  A 

OLDAX 

LDA  B 

OLDBX 

RTS 

*  NINES  COMPLEMENT  b  DIGIT  BCD  # 

*  X*  ADDRESS  OF  BCD  MSB (BEFORE  AND  AFTER) 


4  7  JO 

C6 

04  MNCOM 

LDA  B 

#4 

4/02 

Bj 

4  7F9 

JSR 

FI  XX 

4  705 

DF 

84 

STX 

KEEP 

*  complement 

EACH  D 

4  7D7 

C6 

05 

LDA  B 

it 

4  ;.)y 

86 

OV  K 1 N 1 

LDA  A 

#09 

4  7  ,J 

AO 

00 

SUB  A 

o.x 

4  7  Di; 

A  7 

00 

STA  A 

0,  x 

4/.| 

0/ 

DEX 

4  ft  0 

jA 

DEC  B 

4/t-l 

2  6 

Fft 

BNE 

NINI 

a  ADD  ONE  TO 

RESULT 

4  /•:  ) 

DE 

H4 

LDX 

KEEP 

4/5 

C0 

05 

LDA  B 

#5 

0  7b  00 
f)75IO 
0  7520 
>7530 
0  7640 
J  /  550 
07-i60 
)  75  70 
0  76R0 
)75VO 
U  7600 
J  76  I  0 
0  7620 
07630 
J  7640 
0  7650 
>7660 
0  76  70 
0/680 
0  7690 
0  7700 
U77IO 
0  7  720 
0  7730 
07740 
07750 
J  7760 
0  7770 
07780 
0  7790 
0  7800 
07810 
07820 
0  78  30 
07840 
07850 
07860 
07870 
07880 
07890 
07900 
07910 
07920 
07930 
07940 
07950 
07960 
0  7970 
07980 
07990 
08000 
08010 
08020 
08030 


4  7E  7  4F 
4  7E8  OD 

4 7E9  A 9 
47EB  BD 
4  7  lit  84 
4  7FO  A  7 

4  7F2  e6 
47F4  09 
4 7F5  5A 
47K6  26 
4  7F8  39 


47F>  08 
4  7FA  5A 
47FB  26 
4  7F0  39 


47FE  DF 
4000  7F 

4803  DE 
4805  C6 
4807  BD 
4 80A  DF 

480C  DE 
480E  C6 
4810  BD 
4813  DF 

4815  OC 

4816  C6 
481 8  DE 
48 1 A  A6 
481 C  09 
401 D  DF 

481 F  DE 
4821  A9 
4823  BD 

4826  09 

4827  DF 

4829  DE 
482B  A 7 


CLR 

A 

SEC 

* 

00 

NIN2 

ADC 

A 

O.X 

4846 

JSR 

JOCK 

OF 

AND 

A 

#$F 

00 

* 

STA 

A 

o.x 

00 

LDA 

A 

#3 

DEX 

DEC 

B 

FI 

BNE 

NIN2 

RTS 

*  FIX  X  REG 

* 

FI  XX 


POINTER 


FC 


INX 
DEC  B 
BNE  F I  XX 

RTS 

* 

A  ADD  2-b  DIGIT  BCD  VALUES 

*  A I -ADDRESS  OF  VALUE  I  MSB 

*  A2-AD0RESS  OF  VALUE  2  MSB 

*  X-AOORESS  OF  RESULT 


4 

76 

BCDAOD  STX 

ADOXi 

0026 

CLR 

SIC 

*  FIX 

A) 

62 

LDX 

A  1 

04 

LDA  B 

#4 

47F9 

JSR 

FI  XX 

62 

STX 

A 1 

*  FIX 

A2 

64 

LDX 

A2 

04 

LDA  B 

#4 

4  7F9 

JSR 

FI  XX 

64 

STX 

A2 

CLC 

*  GET 

FIRST  VALUE 

04 

LDA  B 

#4 

62 

BCAI 

LDX 

At 

00 

LDA  A 

o,x 

DEX 

62 

STX 

At 

*  ADO 

SECOND 

64 

LDX 

A2 

00 

ADC  A 

o,x 

4646 

JSR 

JOCK 

DEX 

64 

STX 

A2 

*  STORE  IN  OUTPUT 

76 

LDX 

ADDXI 

00 

STA  A 

o.x 

PAGE  031 


AOLS 


PAGE  0  32  AJLS 


08040 

4H2D 

09 

DbX 

08530 

48  78 

CE 

00  A  B 

LDX 

•  TEM31JB 

08050 

482E 

DK 

76 

STX 

APDX  1 

J85v(j 

487b 

BJ 

4H6D 

J5  .V 

C0MP64 

oaofto 

* 

OP  6  00 

♦  ADD  MINUEND 

AID  FIX  S  I  UN 

OF  RESULT 

08070 

4830 

5A 

DEC  B 

03610 

487E 

Dc 

66 

LDX 

SI 

08080 

4831 

26 

E5 

8NE 

bCAl 

08620 

4f80 

LK 

52 

STX 

A  1 

08090 

4833 

DE 

62 

LDX 

A  1 

)Ro30 

4882 

CE 

POAB 

I. OX 

*rEM5Ur. 

081  00 

4  835 

A6 

00 

LDA  A 

0,X 

>8640 

4  835 

DF 

64 

STX 

A2 

08  1  1 0 

4f  37 

n~ 

64 

LDX 

A2 

00650 

4f  8  7 

DE 

78 

LDX 

SJJXI 

OR  1  20 

4839 

A9 

00 

AOC  a 

0,X 

03  860 

4  839 

BJ 

UJ 

JSR 

•i:dajd 

)81?U 

4  P3d 

BL* 

4848 

JSR 

JOCK 

>86  70 

4H8C 

3V 

RTS 

JSI  40 

483* 

24 

03 

see 

BCA2 

>8680 

* 

>8150 

4840 

7C 

0026 

INC 

SIG 

>3690 

*  64'S  COMPLEMENT  ROUTINE 

08160 

4r  43 

dk; 

76 

ECA2 

LDX 

ADDXI 

08/00 

* 

H  1  70 

4845 

A  7 

00 

STA  A 

o,x 

00710 

4T8D 

DF 

62 

C0MP64  STX 

ai 

OH  IRC 

484  7 

39 

RTS 

08720 

468F 

bJ 

4  7U0 

JSR 

1-  INCOM 

08190 

4848 

01 

JOCK 

NOP 

OE  730 

48v2 

Ct 

46  DA 

LDX 

•DoNST 

08200 

4R49 

81 

09 

CMP  A 

#9 

08  740 

48v5 

DF 

64 

STX 

A2 

082  1 0 

4848 

2E 

02 

0GT 

JOCKI 

00  750 

4897 

CE 

00  HV 

LDX 

0  IE5ULT** 

0022G 

484D 

OC 

CLC 

OP  760 

409A 

BD 

47FI 

jsr. 

BCDAUD 

08230 

4848 

39 

RTS 

08  770 

489D 

Dr. 

62 

LDX 

AI 

OM24Q 

484F 

83 

06 

JOCKI 

ADD  A 

#6 

>3780 

409F 

SO 

4902 

JSR 

XF'rR 

08250 

4851 

84 

OF 

AND  A 

•  $F 

OP  790 

48A2 

39 

UTS 

JH260 

4853 

OD 

SEC 

08.*  00 

* 

08270 

4854 

39 

RTS 

08810 

* 

J8280 

* 

>8320 

*  ADJUST  FOR  : 

>  99V99  &  >  64000  POLLoVFR 

082^0 

*  SUBTRACT  2-5  TiCIT  BCD  VALUES 

0R830 

* 

08300 

*  SI » 

ADDRESS 

OF  MINUEND 

08840 

4CA3 

Dr 

C4 

ADJ  srx 

AOJX 

08310 

*  52- 

ADDRESS 

OK  SUBTRAHEND 

'>8850 

4  PA  5 

71' 

0026 

TST 

SID 

>8320 

»  X-ADORFSS  DE  RESULT 

08060 

4  3  A3 

26 

OH 

UNb 

AJJI 

08330 

* 

03870 

*  TEST  >  64000 

08.14U 

4f  55 

OF 

73 

BCDSUb  srx 

SUBXI 

JHRRO 

48AA 

CF 

0035 

LDX 

•RESULT 

0<350 

4857 

DK 

7A 

STX 

SUBX2 

M3vO 

43AD 

BD 

43F0 

JSR 

TEST64 

>8360 

*  FIX 

GUbXI 

08900 

4880 

24 

15 

BCC 

A  >J2 

08370 

4T5V 

C6 

04 

LDA  8 

#4 

08910 

*  FIX  >  64000 

rollover 

08380 

4foB 

bO 

47F9 

JSR 

FI  XX 

089  20 

4832 

CE 

00  B5 

ADJI  LDX 

•RESULT 

73  390 

4  fob 

DK 

78 

STX 

SUBXI 

08930 

4835 

DF 

62 

STX 

AI 

08400 

4  COMPLEMENT 

SU3TRAHAND 

08940 

48H7 

CE 

46  DF 

LDX 

•C0NST2 

08410 

*  TRANSFER  SUBtRAUAND 

>8950 

48BA 

DF 

64 

STX 

A2 

08420 

4860 

Cfc 

00  Ad 

LDX 

•  TEMSUB 

OH  960 

433C 

DE 

C4 

LDX 

AOJX 

Of 54  30 

4*63 

DK 

7C 

STX 

TX 

089  70 

48Bb 

C6 

04 

LDA  3 

04 

>3440 

4865 

C6 

05 

LLA  8 

05 

089 HO 

4  Pen 

30 

4  7F9 

JSR 

FI  XX 

08450 

486  7 

DE 

68 

TXI 

LDX 

52 

08990 

48CJ 

BD 

4  7FE 

JSR 

BC  DADD 

08460 

4869 

A6 

00 

LDA  A 

0  *  X 

09000 

4  6C6 

39 

Rrs 

>8470 

4I»oB 

08 

INX 

OvOlO 

*  FI  X  <  64  000 

7ALUE 

38480 

4  R6C 

DK 

68 

STX 

S2 

0902U 

46C7 

DE 

C4 

ADJ  2  LDX 

AOJX 

084VO 

* 

79030 

48C9 

BC 

4902 

JSR 

XKEk 

.08500 

406b 

DE 

7C 

LDX 

rx 

0V040 

4800 

39 

RTS 

08510 

4R70 

A  7 

00 

STA  A 

o,x 

UVU5C 

* 

08520 

4872 

08 

INX 

;v  060 

*  TEST  IF  BCD 

A  MAY  >  OR  * 

32000  (C  SET 

>853  ) 

48  73 

PF 

7C 

STX 

rx 

Jvo  70 

* 

08540 

* 

>9080 

4DCU 

A6 

00 

TLST32  LDA  A 

o,x 

OR550 

4F.  75 

5A 

DEC  B 

>VO90 

400? 

81 

03 

C-V  A 

•  3 

)8560 

4876 

26 

FF 

3NE 

TXI 

09  I  V. 

4801 

PC 

04 

BLT 

mi 

035  /  0 

* 

>V  1  l\. 

4  HD.1 

21 

06 

HOT 

T322 

t 

a 


PAGE  03  J  AOLS 


PAGE  034  AGLS 


1  20 

48D5 

A  6 

01 

LDA  A 

1  ,X 

;)v  1 

*  J 

46D7 

HI 

02 

CAiP  A 

#2 

39  1  • 

Jo 

4tOv 

2,, 

02 

BLT 

1321 

Iv  1  • 

•0 

4PDt« 

o:j 

TJ22 

SEC 

H- 

4h.M 

39 

NTS 

1  •  * 

/O 

46:>i; 

or 

T  32 1 

CLC 

v -91 

o 

4t'I>b 

39 

«T5 

j-  lli 

i .) 

* 

**********A JLS 3 ********* 


*  TbST  BCD  MAG  LI V ITS  FOR  DISPLAY 


★  X -BUFFER  ADDRESS 

* 

*  SETUP  DIRECTION  SIGN 


j.  i  1 

*  FIX 

IF  >9999 

J  1,-0 

4, -OF 

A6 

A) 

TESTM 

LDA 

A 

o.x 

O  l  •  : 

4e-i 

84 

OF 

AMD 

A 

*$F 

1-0 

4PE3 

27 

OA 

BEO 

TSTMI 

oC  1 5( 

48b5 

86 

09 

LDA 

A 

#39 

Jl  1  V 

4/  b7 

A  7 

01 

STA 

A 

i.x 

»i  ■  fO 

4F  r.V 

A  7 

02 

STA 

A 

2.X 

)  1  HU 

4Bcb 

A  7 

03 

STA 

A 

3  •  X 

-L  1  *  ■ 

4h£L 

A  7 

04 

STA 

A 

4  *  X 

i  V 

48FF 

39 

TSTMI 

RTS 

*  TEST  IF  BCD  ARRAY  >  OR  -  64000 

*  C  SEI  IF  TRUEfC-0  IF  FALSE 


.  -  ‘40 

4)F0 

AO 

00 

TE3T64 

LDA 

A 

0fX 

»„  •;  j 

4  Mr  2 

81 

06 

CMP 

A 

#6 

.);  -60 

4bF4 

2E 

)A 

8GT 

T64I 

>t'2  7u 

48F6 

2D 

1  >6 

BLT 

T042 

00  V-r 

48FM 

A6 

01 

LDA 

A 

i*x 

■  )/*  i 

48FA 

PI 

04 

CMP 

A 

#4 

K)  ■  U 

4  MFC 

2C 

02 

BGE 

T64I 

.■<5  il'j 

4. SrE 

DC 

T642 

CLC 

y'  120 

46FE 

39 

RTS 

i  <*o 

4900 

ou 

T64I 

SEC 

K  'i40 

4901 

39 

RTS 

*  TRANSFER  FROM  BCD  ARRAY  "RESULT"  TO 

*  ARRAY  SPECIFIED  BY  X 


lO  390 

* 

K4  r*i 

4v02 

DF 

6A 

XFER 

STX 

XI 

4  VJ4 

Cfc 

0085 

LDX 

#RESULT 

><  4  20 

4907 

DF 

6C 

STX 

X2 

•  >4  iU 

4v09 

C6 

05 

LDA 

B 

#5 

,f;44l> 

4V0b 

DE 

6C 

XFERI 

LDX 

X2 

>(  4‘,  , 

4VOD 

A  6 

00 

LDA 

A 

0«X 

•j«4  5U 

4V0F 

08 

INX 

>..4  7(y 

4910 

DF 

6C 

STX 

X2 

00460  4912  DE  6A 
004V 0  4914  A 7  00 
00500  4916  08 
00510  4VI7  OF  6A 
00520  4919  5A 
00530  4v I  A  26  EF 
00540  4V  1C  3V 
00550 
00560 
00570 


LDX  XI 

STA  A  O.X 
INX 

STX  XI 

DEC  B 

8NE  XFERI 

RTS 

*  COMPUTE  BINARY  DATA  FROM  BCD<5  DIGIT)  VALUE 

*  X-ADDRESS  OF  BUFFER! ENTRY ) l D/A  VALUE! EX  IT) 


00580 

491 D 

08 

BCDB I N 

INX 

00590 

49  IE 

C6 

04 

LDA 

B 

#4 

30600 

4920 

D7 

BA 

STA 

B 

SAVB 

00610 

4922 

7F 

0001 

CLR 

MSBY 

00620 

4v25 

7F 

0002 

CLR 

LSBY 

00630 

* 

00640 

4928 

A6 

00 

BCDB  1 

LDA 

A 

O.X 

00650 

492A 

97 

03 

STA 

A 

TMP 

00660 

49  2C 

BD 

4BE1 

JSR 

M10X 

00670 

492F 

08 

INX 

00680 

4930 

7A 

008A 

DEC 

SAVB 

00690 

4933 

26 

F  3 

BNE 

BCDB  1 

00  700 

*  DIVIDE  X2 

00710 

4935 

74 

0001 

LSR 

MSBY 

00  7  20 

49  38 

76 

0002 

ROR 

LSBY 

JO  730 

*  TEST 

SIGN 

00740 

4930 

96 

01 

LDA 

A 

M5BY 

00750 

49  3D 

70 

0026 

rsr 

SIG 

30  760 

4940 

27 

04 

BED 

BCDB2 

<30  770 

4942 

BA 

80 

ORA 

A 

#$80 

oo7eo 

4944 

97 

01 

STA 

A 

MSBY 

00  790 

*  TEST 

OVERFLOW 

00800 

4946 

84 

70 

BCD62 

AND 

A 

#570 

JOB  10 

4948 

27 

OF 

BEO 

BCDB3 

00820 

* 

00830 

494  A 

96 

01 

LDA 

A 

MSBY 

00S40 

494C 

84 

80 

AND 

A 

#$80 

30350 

494E 

8A 

OF 

ORA 

A 

#$0F 

00360 

4950 

97 

01 

STA 

A 

MSBY 

00870 

4952 

86 

FF 

LDA 

A 

#$FF 

00880 

4954 

97 

02 

STA 

A 

LSBY 

00890  4956 

N  7 

24  ID 

STA 

A 

PIA8D0 

<30900 

4959 

DE 

01 

BCDB  3 

LDX 

MSBY 

JOVIO 

4V5B 

39 

RTS 

00920 

* 

00930 

♦  CLEAR  FLAG 

TABLES 

00940 

* 

00950 

495C 

CE 

0013 

clfg 

LDX 

#BEG 

J0960 

4V5F 

6F 

00 

CLFG1 

CLR 

O.X 

009  70 

4961 

08 

INX 

009 HO 

4962 

6C 

00C9 

CPX 

#ENU 

00990 

4965 

26 

E8 

BNE 

CLFGI 

0 1  )00 

4967 

39 

RTS 

t'A  ;£  03t>  AGLS 


PAGE  036  AoLS 


01  020 
01030 
01040 
0105C 
01060 
01070 
01  080 
11090 
01100 
jino 

Ml  20 
01130 
Ml  40 
31150 

on  60 

Ml  70 
01  100 
01  wo 
01200 
01210 
01220 
01230 
01240 
0  1250 
01260 
0 1270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
0  I  360 
M370 
01380 
0J3V0 
01400 
01410 
OI420 
01430 
01440 
01450 
01460 
01470 
01480 
0  1490 
0  1 1>00 
.11510 
01520 
01530 
11540 
11550 


*  INITIAL  FlAS  ROUTINE 


4968 

4968 

496E 

4V  10 
4973 
4V75 

4978 
497B 
4970 
4980 
4982 
4985 
4987 
493A 
493D 
4V8F 
4992 
499  3 

4994 

4  996 
4  999 

499C 

499E 

49A1 


4  968 

7F  2*02 
7F  2800 
86  3E 
b7  2802 

86  3E 

87  2802 

7F  2803 
96  FF 
B7  2801 
86  2C 
B7  2e03 
86  OA 
B7  2801 
B6  2301 

86  2D 

87  2803 
OF 

01 

86  3E 
CE  2400 
BD  4A29 

86  3E 
CE  2404 
BD  4 A 29 


PI  AS 
*  PlA 


EQU  * 

0  Ul-SA  INPUTS 


*  PI  K 


*  HA 


CLP 

PIAOCA 

CLR 

PIAOOA 

LDA  A 

#$3E 

5TA  A 

PIAOCA 

LDA  A 

#$3E 

STA  A 

PIAOCA 

0  < 6) -PROG  CLOCK 

CLR 

PIAOCB 

LDA  A 

#$  FF 

STA  A 

PIAOD0 

LDA  A 

#S2C 

STA  A 

PIAOCB 

LDA  A 

#10 

STA  A 

PIAOOB 

LDA  A 

PIAODB 

LDA  A 

#$2D 

STA  A 

PIAOCB 

SE1 

NOP 

1  -GACS 

INPUT 

LDA  A 

#$3E 

LDX 

#P  I A  1  DA 

JSR 

SETUP 

49A4 

49A6 

49A9 


86  3E 
CE  2408 
BD  4A2V 


LDA  A  #$3E 
LDX  #PI A2DA 
J3R  SETUP 
PI  A3  -AZIMUTH  ENCODER 
LDA  A  #S3E 
LDX  #PI A3DA 
J5R  SETUP 


49  AC 
49  A  F 
4932 
4984 

4  V  B7 
49B9 
49  3C 
49Bfc 
49CI 
4VC4 
49C6 
49C9 
49C8 


7F  240E 
7F  24  OC 
86  3E 
t 7  240E 

86  04 
97  24 OF 

86  FF 

87  24 OC 
7F  24 OF 
86  FF 
B7  24 OD 
66  04 
07  2401 


*  PI  A 


49DI  7F  2413 
4904  7F  2410 
4907  96  FF 
4909  87  24 1 1 
4  9  DC  86  3C 
49DE  H7  2412 
491.1  36  34 
49E3  37  2413 


01560 
01570 
11580 
01590 
11600 
11610 
.11620 
01630 
0)640 
0 1 550 

01660  49E6  86  36 
01670  49E8  CE  2414 
01680  49EB  BO  4A29 
01  690 
01700 


01710 
01  7  20 
01  730 
0 1740 
01750 
01  760 
01770 
01780 
01790 
01  800 
01810 
01820 
0)830 
01840 
01350 
01360 
01870 
01  380 
01890 
01900 
01910 


49EE  7F  241 A 
49F1  7F  24 IB 
4VF4  86  FF 
4VF6  37  2418 
49F9  B7  2419 
49FC  86  3E 
4VFE  87  241 A 
4A0J  B7  2418 


4A04 

4A07 
4A0A 
4A0C 
4A0F 
4AI  I 
4A 1 4 
4AI6 
4A1V 
4A  I  B 


7F  24  IE 
7F  24  IF 
86  OF 
B7  24 1C 
86  IF 
B7  24  ID 
86  3E 
B7  241 E 
P.G  3E 
B7  24 IF 


49CE  7F  24 12 


4  -EL  AND  AZ  ENCODER 

01920 

CLR 

PIA4CA 

01930  4AIE 

86 

03 

CLR 

pIA4DA 

01940  4 A 20 

B7 

3002 

LDA  A 

#$3E 

01950  4 A 23 

BD 

4B19 

STA  A 

PIA4CA 

OfVOO  4 A 26 

01 

4  -enables 

01970  4A27 

01 

LDA  A 

#4 

01980  4A20 

39 

STA  A 

PIA4CB 

01  990 

LDA  A 

#$FF 

02000 

STA  A 

PIA4DB 

02010 

CLR 

P1A4CB 

02020  4A29 

6F 

02 

LUA  A 

#$FF 

02030  4A2B 

6F 

03 

STA  A 

PIA4DB 

02040  4A2D 

6F 

00 

LDA  A 

#4 

02050  4A2F 

6F 

01 

STA  A 

PJA4CB 

02 060  4A3I 

A7 

02 

02070  4A  33 

A7 

03 

5  -MUX 

A/J 

O2080  4 A 35 

39 

CLR 

PIA5CA 

02090 

CL:? 

»  I  A5Cii 

CLR 

r  I  A5i 

LDA  A 

#$  FF 

STA  A 

i'I  A5D3 

LDA  A 

#S3C 

STA  A 

PI A5CA 

LDA  A 

#$34 

STA  A 

PIA5C3 

* 

*  p  I  A 

o  -TRIM 

A/D 

LDA  A 

#$36 

LDX 

#PlA6bA 

JSR 

SETUP 

* 

*  PI  A 

7  -0/A 

CLR 

PIA7CA 

CLR 

PIA7CB 

LDA  4 

#SFF 

STA  A 

PIA7DA 

STA  A 

PIA7QB 

LDA  A 

#$3E 

STA  A 

PIA7CA 

STA  A 

PIA7CB 

* 

*  PI  A 

B  -DISPLAY 

CLR 

PIABCA 

CLR 

P1ABCB 

LDA  A 

#SF 

STA  A 

PIA8DA 

LDA  A 

»»IF 

STA  A 

PIA8DB 

LDA  A 

#S3E 

STA  A 

PI  ABCA 

LDA  A 

4S3E 

STA  A 

PIA8C8 

* 

*  AC  I A  SETUP 

LDA'  A 

#3 

STA  A 

AC2C 

JSR 

DISXMT 

NOP 

NOP 

RTS 

* 

*  SETUP  PI  A  USING  X 

* 

SETUP 

CLR 

2.X 

CLR 

3.X 

CLR 

0,X 

CLR 

t.x 

STA  A 

z.x 

STA  A 

3.X 

RTS 

* 

PAGE  03  7  AGLS 


PAGE  03«  AGLS 


02100  *  INTERRUPT  SERVICE  ROUTINE 


02110 

★ 

02120 

* 

TEST 

CLOCK 

02130 

4A30 

7I> 

2803 

ISER 

TST 

PIAOCB 

02  1  40 

4A39 

2A 

6C 

3PL 

ISER6 

02150 

4A3fa 

B6 

2801 

LDA  A 

P I AODB 

02160 

4A3E 

B  7 

2801 

STA  A 

PIAODB 

021  /o 

* 

SCAN 

CLOCKS 

>2  180 

4A4| 

CE 

0004 

LDX 

#  I'MTB 

>21  VO 

4  A  44 

C6 

Ob 

l:>a  b 

#5 

>22  00 

4  A  Ac 

BL> 

4C0A 

JSR 

SCAT 

G.'.'K 

* 

TEST 

INSIDE 

L(K)P(20  MSEC) 

02220 

4A49 

70 

0004 

TST 

TFI 

’*22  30 

4A4C 

27 

8EQ 

ISER2 

>2240 

4A4E 

38 

HTI 

02200 

* 

SERVICE  INSIDE  L(X)P 

>22eO 

4  A  4p 

CE 

0014 

ISER2 

LDX 

#20 

>22  70 

4A52 

'F 

Ob 

STX 

TUI 

'  *2  >0 

4A64 

/C 

0004 

INC 

TFI 

★ 

D/A  ! 

READY? 

02  JOG 

4  A  *j  / 

BO 

4B22 

JSR 

DA  OUT 

'231  J 

* 

TEST 

XENON  ON 

>  «c  3  <  0 

4  ASA 

86 

40 

LDA  A 

#XRECM 

'2  3  30 

4  A5C 

BO 

44Cb 

JSR 

TSTS8B 

02  340 

4A6F 

24 

ID 

riCC 

ISER  7 

■)?  itc 

★ 

START  DROPOUT  CLOCK 

02  360 

4A6I 

7F 

0010 

CLR 

TF5 

'23  /O 

4  A  64 

CP 

03  E8 

LDX 

#1000 

'  '23H0 

4 AO  7 

OF 

1 1 

STX 

TIM5 

023/0 

4A6V 

7C 

0010 

INC 

TF5 

32-*  X) 

* 

TEST 

ON  FOR 

25  TIMES 

0  2410 

4A6C 

7C 

00 4 E 

INC 

XON 

•>2420 

4  A6F 

96 

4E 

LDA  A 

XON 

>24  30 

4A71 

81 

19 

CMP  A 

#25 

>24  40 

4A73 

2D 

14 

BLT 

ISER8 

024S0 

* 

>2460 

4A75 

7A 

004 E 

DEC 

XON 

>24  70 

4A78 

7F 

0017 

CLR 

XRECF 

02480 

4A7B 

7C 

0017 

INC 

XRECF 

>24VO 

* 

TEST  TIMEOUT  AFTER  OFF 

)2k>00 

4A7E 

7F 

004  E 

ISER7 

CLR 

XON 

J  2  'j  1 0 

4  AB  1 

70 

0010 

TST 

TF5 

>2020 

4  AB4 

26 

03 

BNE 

ISER8 

>2b  30 

4  A  86 

7F 

0017 

CLR 

XRECF 

02540 

* 

TEST 

NEAPON 

S« 

02550 

4ABV 

06 

80 

ISER8 

LDA  A 

#4PNM 

>2560 

4  AHb 

BD 

44CE 

JSR 

TSTS8A 

>2570 

4A8E 

24 

06 

BCC 

ISER4 

DjbBO 

4AV0 

7F 

0016 

CLR 

WPNF 

/2Wl> 

4/  v3 

7C 

0016 

INC 

rfPNF 

>26. >0 

* 

OUTSIDE  LOOP 

>2M0 

4f  96 

70 

0007 

ISER4 

TST 

TF2 

>2620 

4  A  V9 

27 

01 

BEO 

ISERb 

•26  3J 

4A9B 

3B 

RTI 

02040  *  SERVICE  OUTSIDE  L<X)P 


02650 

4A9C 

CE 

00C8 

ISER5  LDX 

#200 

02660 

4A9F 

OF 

08 

STX 

TIM2 

02670 

4AAI 

7C 

0007 

INC 

TF2 

02680 

*  UPDATE  DISPLAY 

02690 

4AA4 

BO 

4356 

JSR 

UJIS 

02  700 

*  TEST  CRT 

02710 

4  AA  7 

7D 

3002 

ISER6  TST 

AC2S 

02720 

4  A  AA 

28 

01 

BMI 

I3ER16 

02730 

4AAC 

3b 

RTI 

02740 

*  TEST  RECV. 

INT. 

02750 

4AAD 

BD 

4C33 

ISER 16  JSR 

AO  I 

02760 

4A80 

25 

2E 

BCS 

ISERI7 

02770 

*  *D  V 

02780 

4AB2 

81 

44 

CMP 

A 

#'D 

.>2790 

4AB4 

26 

OE 

BNE 

ISER9 

02300 

4A86 

CE 

008B 

LDX 

#ELGCDS 

02810 

4A39 

DF 

48 

STX 

PTR 

02820 

4A8B 

CE 

00  A  B 

LDX 

#AZLIT*I 

02830 

4AJE 

DF 

4  A 

STX 

PTE 

02840 

4AC0 

86 

05 

LDA 

A 

#5 

02850 

4AC2 

20 

1  1 

BRA 

ISERIO 

>2860 

*  *F  ? 

02870 

4AC4 

B 1 

46 

ISER9  CMP 

A 

#'F 

02380 

4AC6 

27 

01 

BEO 

ISER 1 1 

02H90 

4AC8 

3B 

RTI 

02900 

4ACV 

CE 

0013 

ISER 1 1  LDX 

#BEG 

02910 

4  ACC 

DF 

48 

STX 

PTR 

02920 

4ACE 

CE 

00 2D 

LDX 

#DISAZ4 

02930 

4ADi 

OF 

4A 

STX 

PTE 

02940 

4AD3 

86 

01 

LDA 

A 

#1 

02950 

4  A  05 

97 

4C 

ISERIO  STA 

A 

SPC 

02960 

4AD7 

97 

4D 

STA 

A 

ASP 

02970 

*  OUTPUT  CR/LF 

02980 

4  A  09 

BO 

4C5I 

JSR 

CRLF 

02990 

*  INH  REC/ENB 

XMIT 

03000 

4ADC 

BD 

43  1 3 

JSR 

DISREC 

03010 

4A0F 

3B 

RTI 

03020 

* 

03030 

★  TEST  XMIT. 

INT. 

03040 

4AE0 

B6 

3002 

I SERI  7  LDA 

A 

AC2S 

03050 

4AE3 

85 

02 

BIT 

A 

#2 

03060 

4AF5 

26 

04 

BNE 

I  SERI  2 

03070 

4AE7 

B6 

3003 

LDA 

A 

AC2R 

03080 

4AEA 

3B 

RTI 

03090 

*  CHECK  SPACE 

COUNT 

03100 

4AEB 

7D 

004D 

ISER 1 2  TST 

ASP 

03110 

4  A  EE 

26 

08 

BNE 

ISERI3 

03120 

4AF0 

96 

4C 

LDA 

A 

SPC 

031  30 

4AF2 

97 

40 

STA 

A 

ASP 

03140 

4AF4 

86 

20 

LDA 

A 

#$20 

03  1  50 

4AF6 

20 

13 

BRA 

I  SERI  4 

03160 

*  PROCESS  CHAR 

031  70 

4  A  FB 

7A 

004 D 

I SERI  3  DEC 

ASP 

rAGE  03V  agls 


RAGE  040  AGLS 


03  1  00 

4AFB 

OE 

48 

LOX 

PTR 

J  31  VO 

4AFD 

VC 

4A 

CPX 

PTE 

>3200 

4AFF 

27 

OE 

3EQ 

ISERI5 

03210 

4B01 

A6 

00 

LDA 

A 

O.X 

03220 

4B03 

08 

INX 

03230 

4004 

DF 

48 

STX 

PTR 

03240 

4B06 

2A 

01 

BPL 

ISERI8 

0  3250 

4  BOB 

4F 

CLR 

A 

03260 

4b09 

8B 

30 

ISERI0  ADO 

A 

#$30 

03270 

*  OUTPUT  CHAR 

03280 

4  BOB 

bo 

4C4I 

I SERI 4  JSR 

A(X) 

03290 

4B0E 

3B 

RTI 

0  3300 

*  WRAP  UP  XNIT 

033  J  0 

4B0F 

BD 

4BI9 

I SERI 5  JSR 

DISXMT 

03320 

4bl  2 

3B 

RTI 

t)  3330 

* 

03340 

*  DISABLE  REC 

I NT  ROU 

03350 

4B1 3 

86 

2A 

D I  SR EC  LDA 

A 

#XIE 

03360 

4BI5 

B7 

3002 

STA 

A 

AC2C 

03370 

4b  J  8 

39 

RTS 

0  3380 

* 

033V0 

03400  4BIV  86  0A 
034 JO  4BIB  B7  3002 
03420  4BIE  B6  3003 
03430  4B2I  39 
03440 
03450 
03460 
03470 


03400 
03490 
03500 
03510 
03520 
03530 
03^40 
03550 
03560 
0  3570 
03580 
03590 
0  3600 
036  1  0 
03620 
03630 
03640 
03650 
03660 
03670 
03680 
03690 

03700  4B40  C6  36 
03710  4B4F  E7  00 


4B22  70  0041 
4025  27  JO 
4B27  26  03 
4B29  7 A  0041 
4B2C  DE  51 
4B2E  FF  2418 
483/  CE  24  JA 
4B34  BD  404D 


4B37  70  0042 
4B3A  20  10 
4B3C  26  03 
4B3E  7A  0042 
4B4 I  OE  4F 
4B43  FF  2418 
4B46  CE  24  IB 
4B49  BO  4B40 
4B4C  39 


*  DISABLE  XM IT  I NT  ROUTINE 
DISXMT  LDA  A  #RIE 

STA  A  AC2C 
LDA  A  AC2R 
RTS 

* 

*  OUTPUT  D/A  ROUTINE 

*  elevation 


DA  OUT 

TST 

ELDAF 

REO 

DAOUTI 

BNE 

DA0UT3 

DEC 

ELDAF 

DA0UT3 

LDX 

ELCOM 

STX 

PIA7DA 

LDX 

PPIA7CA 

JSR 

USCON 

*  AZIMUTH 

DA  OUT  1 

TST 

AZDAF 

BLT 

DA  OUT* 

BNE 

0AOUT2 

DEC 

AZDAF 

DA0UT2 

LDX 

AZCOM 

STX 

PIA7DA 

LDX 

•P1A7CB 

JSR 

USCON 

DA OUT*  RTS 

* 

*  INVERTED  STROBE  CONTROL  PULSE 


USCON  LDA  B 
STA  B 


*»36 

O.X 


03720 

4B5I 

C6 

3E 

LDA 

B 

#$3E 

3  37  30 

4B53 

E7 

00 

STA 

B 

O.X 

03740 

4H55 

39 

RTS 

03750 

* 

03760 

»  UPDATE  DISPLAY  ROUT I 

03770 

*  ELEVATION 

03780 

* 

0  3790 

*  plash  sign 

IF  IDLE 

03??00 

4856 

71? 

00 1 A 

UDIS 

TST 

IDLEF 

03810 

4B59 

27 

13 

8EU 

UJI  S3 

>3820 

4B5B 

7D 

00 2 A 

TST 

DTHRU 

03330 

4B5E 

27 

05 

BF.Q 

U01S4 

03840 

4B60 

7F 

00 2 A 

CLR 

DTHRU 

Oil  50 

4663 

20 

09 

BRA 

UDIS3 

03860 

4865 

7C 

002A 

UDIS4 

INC 

DTHRU 

03070 

4668 

86 

OF 

LDA 

A 

#$F 

33800 

4B6A 

97 

95 

STA 

A 

ELERD 

03890 

4B6C 

97 

A4 

STA 

A 

AZERD 

03V  00 

4b6fc 

7F 

0043 

udis:- 

CLR 

DISADR 

03910 

4h7l 

ID 

0028 

TST 

DISEL 

>3920 

48  74 

27 

OC 

BFQ 

UDIS) 

>3930 

4B76 

CE 

008B 

LDX 

iELGCDS 

03940 

4E79 

DF 

44 

STX 

ACT 

0  3950 

4B7B 

D6 

A9 

LDA 

B 

ELLIT 

03960 

46  7D 

D7 

3F 

STA 

B 

LITE 

03970 

4B7F 

BD 

4898 

JSR 

DISIT 

03900 

»  AZIMUTH 

03990 

4B82 

7D 

00 2C 

UDIS1 

TST 

D1SAZ 

04000 

4885 

27 

10 

BtO 

UDIS2 

04010 

4B87 

B6 

10 

LDA 

A 

#S  10 

04020 

4889 

97 

43 

STA 

A 

DISADR 

04030 

4b8B 

CE 

009 A 

LDX 

fAZGCDS 

04040 

4B8E 

DF 

44 

srx 

ACT 

04050 

4BV0 

D6 

AA 

LDA 

B 

AZLIT 

04060 

4B92 

D  / 

3F 

STA 

B 

LITE 

04070 

4B94 

BD 

4BV8 

JSR 

DISIT 

04080 

4B97 

39 

UDIS2 

RTS 

04090 

* 

04100 

*  ROUTINE  TO 

DISPLAY  r 

04  no 

* 

04120 

4B9H 

96 

43 

DISIT 

LDA 

A 

DISADR 

04130 

4b9A 

B7 

24  ID 

STA 

A 

RIA8DB 

04 1  40 

4B9D 

DE 

44 

LDX 

ACT 

04150 

4B9F 

Aft 

00 

LDA 

A 

O.X 

04  160 

4BAI 

08 

INX 

04170 

4BA2 

DF 

44 

STX 

ACT 

04 1  80 

4BA4 

B7 

24  1C 

STA 

A 

elABDA 

04190 

4bA7 

CE 

24  IE 

LDX 

#P! A8CA 

04200 

4BAA 

BD 

4B4D 

JSR 

USCON 

04210  4BAD 

7C 

0043 

INC 

DISADR 

04220 

4B80 

96 

43 

LDA 

A 

DISADR 

04230 

4faB2 

84 

OF 

AND 

A 

f$OF 

04240 

4B84 

81 

OF 

CMP 

A 

#$0F 

04250 

4B86 

26 

EO 

BNE 

DISIT 

PAGE  043  AGLS 


UGH  0  44  AGLS 


00850 
00860 
00870 
00880 
00890 
00010 
00020 
00030 
00040 
00050 
00060 
00070 
00080 
00090 
001  00 
00  1 10 
00120 
00)30 
00140 
00150 
00160 
001  70 
001  80 
00190 
J02  00 
00210 
00220 
00230 
00240 
00250 
1/0260 
00270 
00280 
00290 
00300 
00310 
00320 
JO  330 
00340 
00350 
00360 
00370 
00380 
00390 
00400 
00410 
00420 
00430 
u0440 
JO  4  50 
>0460 
004 70 
00480 
00490 


4C5B  39  RTS 

*  L(X)P  ON  OUTPUT 
4C5C  BD  4C41  AOOL  JSR  A(X> 

4C5F  25  FB  BCS  AOOL 

4C6I  39  RTS 


4C62 

4C65 

4C67 

4C69 

4C6B 

4C6D 

4C70 

4C?2 

4C74 

4C76 

4C79 

4C7C 

4C7E 

4C81 

4CR3 

4C34 

4C85 

4Cd7 

4C88 


7D  0046 

26  IE 

96  53 
84  80 

27  48 

CE  0096 
OF  08 
86  01 

97  46 
CE  8FFF 
70  0029 
27  03 
CE  85  FF 
OF  4F 
OC 

3V 

96  46 
4A 

26  21 


#***********AGLS5 *********** 

TEST  AZ  CLOSING 
TEST  PASS  FUG 


4CBA 

4C9D 
4C90 
4C92 
4C95 
4C97 
4C9  A 
4C9C 
4C9D 

4C9E 

4CAI 

4CA3 

4CA6 

4CA9 

4CAA 

4CAB 

4CAC 


CE  8FFF 
7D  0029 
27  03 
CE  85 FF 
DF  4F 
70  0053 
2A  02 
OC 
39 

CE  85 FF 
OF  4F 
7C  OOOA 
7C  0046 
OC 


39 


4A 

26 


CLAZ 

TST 

PASSAZ 

BNE 

CLAZI 

*  TEST 

AZEHR 

LDA  A 

AZERR 

AND  A 

#$80 

BEQ 

CLAZ6 

*  AZERR  <  0 

LDX 

#150 

STX 

TIM3 

LDA  A 

*1 

STA  A 

PASSAZ 

LDX 

4FULBAK 

TST 

SLONF 

BEQ 

CLAZ8 

LDX 

#hafbak 

CLAZ8 

STX 

AZCON 

CLC 

RTS 

*  PASS 

«  1 

CLAZ1 

LDA  A 

PASSAZ 

DEC  A 

BNE 

CLAZ3 

*  TEST 

FOB  FIRST  NULL 

LUX 

#fulbak 

TST 

SLONF 

BEQ 

CLAZ9 

LUX 

#HAFBAK 

CLAZ9 

STX 

AZCOM 

TST 

AZERR 

BPL 

CLAZ4 

CLC 

RTS 

*  NULL 

ACHIEVED 

:  CLAZ4 

LDX 

fHAFBAK 

STX 

AZCOM 

INC 

TV  3 

INC 

PASSAZ 

CLC 

RTS 

*  PASS  •  2 

CLAZ3 

DEC  A 

BNE 

CLAZ2 

U0500  4CAF  70  OOOA 
>0610  4CU1  27  02 
005 20  4CB3  OC 
1/0530  4CB4  39 
'10540 


i>0550  4CB5  CH  0000  CLAZ6 
UO560  4CB8  CF  4F 
00570  4CUA  86  03 
00500  4C8C  97  46 
00590  4CBE  OC 
00600  4C8F  39 
00610  *  PASS 

006 20  4CC0  4A  CLA Z2 

00630  4CCI  26  F2 
00640  4CC3  BD  4CDF 
O0650  4CC6  28  OD 
00660  4CC8  96  53 
00670  4 CCA  D6  54 
0O6H0  4CCC  BD  4D5E 
00690  4CCF  97  4F 
00700  4CDI  D7  50 
00710  4CD3  OC 
00720  4Cu4  39 
00730  4CD5  CE  OOOO  CLAZ7 
00740  4CUB  DF  4F 
00750  4CDA  7F  0046 
00760  4C!»  OD 
00770  4CDE  39 
30780  * 

00790  *  TEST 

00800 
J08I0 


00860  4CEV  81 
00-370  4CEB  2F 
00880  4CE0  7 A 
00890  4CF0  00 
00900  4CF 1  39 
009 10  4CF2  7F 
00920  4CF5  OC 
00930  4CF6  39 
00940 
00950 
00960 
00970 


Tsr 
rtfcQ 
CLC 
RTS 

*  DISABLE  J/A 


1F3 

CLAZ6 


LDX 

#3 

STX 

AZCOM 

LDA  A 

#3 

STA  A 

PASSAZ 

CLC 

HTS 

■3 

DEC  A 

BNt 

CLAZ6 

JSR 

AZNULL 

BCS 

CLAZ  7 

LDA  A 

AZERR 

LDA  B 

AZERR* 1 

JSR 

TMAGA 

STA  A 

AZCOM 

STA  9 

AZCOM* 1 

CLC 

RTS 

LDX 

m 

STX 

AZCOM 

CLH 

PASSAZ 

SEC 

HTS 

r  az  null 

*  AZEuR  TEST 


*  TEST  TIMER 


0J02U  4000  39 
01030 


4621 

AZNULL 

JSR 

TAZERR 

OE 

BCS 

AZNI 

0057 

INC 

AZCNT 

57 

LDA  A 

AZCNT 

19 

CMP  A 

#25 

08 

BLE 

AZN2 

0057 

DEC 

AZCNT 

SEC 

RTS 

0057 

AZNI 

CLU 

AZCNT 

AZN2 

CLC 

RTS 

* 

*  TEST 

EL  CLOZING 

*  TEST 

ELERR 

55 

CLEL 

LDX 

ELERR 

51 

STX 

ELCOM 

0000 

CPX 

#0 

01 

BNE 

CLELI 

RTS 

*  TEST 

NULL 

PAGE 


045 


AGLS 


PAGE  046  AGLS 


01040 

4D0I 

bD 

4  DOE 

CLEL1 

JSR 

ELNULL 

01  J50 

4004 

25 

Cl 

3CS 

CLEL2 

010*0 

4D06 

3V 

RTS 

Oil)  /o 

415)7 

CE 

oOOO 

CLEL2 

U)X 

»0 

01580  4D4E  9C 

60 

CPX 

JIOHO 

400A 

l*F 

51 

ST  A 

ELCtJM 

01590  4050  26 

OA 

BNE 

Jl-V 

41.  OC 

01) 

SEC 

01600  4D52  09 

DEX 

0  11  00 

4  DO  1 

39 

RTS 

01610  4D53  DF 

59 

STX 

u  mo 

* 

01620  4055  00 

SEC 

1  II  «~o 

* 

>1630  4056  39 

RTS 

>'  1  1  JO 

*  TEST 

EL  NULL 

01640 

* 

M  1  40 

* 

01650  4057  CE 

0000 

CLQP2 

LDX 

0  1  1  50 

*  ELEHR  TEST 

01660  4D5A  OF 

59 

STX 

)l  160 

4bOE 

BD 

46/9 

ELNULL 

JSR 

TELERR 

01670 

* 

01  1  70 

4U1  1 

2  b 

OE 

BCS 

ELNI 

01680  405C  OC 

CLQP3 

CLC 

)  1  1  30 

41)13 

7C 

0058 

INC 

ELCNT 

01690  405D  39 

RTS 

0 1  WO 

4t  16 

V6 

58 

LDA 

A 

ELCNT 

01  700 

*  TEST 

&  FIX 

J  WOO 

4018 

8  1 

19 

CMP 

A 

#25 

01710  4D5E  7F 

0028 

tmaga 

CLR 

J  WIG 

4DI  A 

2F 

08 

BLE 

ELN2 

01 720  4D6I  40 

TST  A 

• 1 1  *'20 

4UIC 

7  A 

0058 

DEC 

ELCNT 

01 730  4D62  2A 

03 

BPL 

Jl/30 

4MF 

OD 

SEC 

0 1  740  4064  7C 

0028 

INC 

01/4  U 

40/0 

3V 

RT5 

01 750  4067  84 

OF 

TMAG3 

AND  A 

01 /bo 

40/1 

7h 

0058 

ELNI 

CLR 

ELCNT 

01760  4069  70 

0029 

TST 

M/60 

4024 

OC 

ELN2 

CLC 

0 1 770  4D6C  26 

13 

BNE 

012  70 

40/5 

3v 

RTS 

01  780 

*  FULL 

SPEED 

ii  1  >‘\) 

* 

01 790  4D6E  81 

02 

CMP  A 

H/VO 

*  TEST 

TRACKER  NULL 

01800  4070  2C 

03 

BGE 

0I30U 

* 

01810  4072  8D 

23 

BSR 

J 1  3 1 0 

4D26 

C6 

05 

CLTR 

LDA 

B 

#PAMA 

01820  4074  39 

RTS 

01320 

4028 

BD 

454E 

JSR 

TERR 

01830 

* 

C 1  J30 

402B 

25 

OE 

BCS 

CLTR2 

01340  4075  86 

OF 

TMAG2 

LDA  A 

01  340 

40/0 

DE 

5B 

LDX 

TRCNT 

01850  4D77  7D 

0028 

TST 

01350 

4D2F 

08 

INX 

01860  407A  27 

02 

BEO 

01360 

4D30 

DF 

5B 

STX 

TRCNT 

01870  4D7C  8A 

80 

ORA  A 

)  I  3  70 

4D32 

VC 

5D 

CPX 

TRLP 

01880  407E  C6 

FF 

TMAG4 

LDA  B 

OIJ80 

4D34 

26 

OA 

BNE 

CLTR3 

01890  4D80  39 

RTS 

0J3V0 

4036 

09 

DEX 

01900 

*  HALF 

SPEED 

01400 

41)37 

DF 

5B 

STX 

TRCNT 

01910  4081  4D 

TMAGI 

TST  A 

•  M  4  1  0 

4D39 

OD 

SEC 

01920  4082  26 

07 

BNE 

11420 

4D3A 

39 

RTS 

01930  4084  Cl 

6F 

CMP  B 

>14  30 

* 

01940  4086  22 

03 

BHI 

M  440 

4D3ri 

CE 

0000 

CLTR2 

LDX 

#0 

01950  4068  BD 

OD 

BSR 

01  450 

4C3E 

DF 

5B 

STX 

TRCNT 

01960  4D8A  39 

RTS 

'J  I  460 

* 

01970 

* 

01470 

4[)40 

OC 

CLTR3 

CLC 

01980  4088  86 

05 

TMAG5 

LDA  A 

O  1  480 

4L4I 

39 

RTS 

01990  4D8D  7D 

0028 

TST 

ti  1  4v0 

* 

02000  4D90  27 

02 

BEO 

1 J 1  500 

*  TEST 

QUAD 

PITCH  NULL 

02010  4092  8A 

80 

ORA  A 

01510 

* 

02020  4D94  C6 

FF 

TMAG6 

LDA  B 

o  I  520 

4042 

Co 

01 

CLOP 

LDA 

B 

#1PMA 

02030  4D96  39 

RTS 

>15  30 

4  >44 

BD 

454  F 

JSR 

TERR 

02040 

* 

OJ  j40 

4047 

25 

OE 

BCS 

CLQP2 

02050 

*  MULTIPLY  X 

>1  551- 

4P4V 

DE 

59 

LDX 

OPCNT 

02060 

* 

01  560 

404b 

08 

INX 

02070  4097  CE 

0003 

M8X 

LDX 

0  1570 

4D4C 

DF 

5V 

STX 

QPCNT 

02080  4 OVA  58 

MO  1 

ASL  B 

02090  4D9fa  49 

ROL  A 

02100  4D9C  09 

DEX 

02110  4D9D  26 

FB 

BNE 

OPLP 

CLGP3 

OPCNT 


#0 

OPCNT 


A/D  MAGNITUDE 
NEGF 

TMAG3 

NEGF 

#$F 

SLOHF 

TMAGI 

#2 

TMAG2 

MdX 


#SOF 

NEGF 

TMAG4 

#$80 

#$FF 


TMAG5 

#$6F 

TMAG5 

M8X 


#5 

NEGF 

TMAG6 

#$80 

#$FF 


#3 


MB  I 
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APPENDIX  F 

VECOM  CONTROL  PROGRAM 
SOURCE  LISTING 
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1AM  VbCOM 

AGLS  COMMUNICATIONS 
VEHICLE 

REVISED  3/3/79  2000 


.ACC  EQU  J 


W«SM  EQU  *000000 1 0  READY  RESPONSE 
P  ASM  EOU  *00000100  FIRE  ACK 
BS'lM  EOU  *00001000  BORESIGHT 
BDFM  EQU  *00010000  BASE  DEFL. 

NMLM  EOU  *00100000  NORMAL 
FDCM  EOU  *01000000  FDC 
REFM  EQU  XI 0000000  REF  ANGLE 
LMTM  EOU  *1  1 1 10000  LAMP  TEST 


PI  A  EQUATES 

PIAI-PROP.  TEMPERATURE 
A  S I uE= INPUTS 
o  SUE  “OUTPUTS  (ADOH  ) 

•  AIL) A  EQU  SC200 
’  i  A  I  OB  EOU  PI  A  IDA-*  I 
IAICA  EQU  PI Al DA*2 
■  i  A  I CB  EOU  PIAIUA+3 
N I  EOU  P  I A  I  DA 
III  EOU  PIAIDB 
OwNON  EOU  $3E 
:<)RN()F  EQU  $36 


» 

<  PIA2-CUNTR0LS  AND  DISPLAYS 
«  A  SlDE»Sw.  INPUTS 

-  Ii  SIDE-DATA/  A  DDR.  OUTPUTS 

IA2UA  EOU  SC204 
IA2DB  EOU  PI A2DA*I 
IA2CA  EOU  PIA2DA+2 

-  IA2CB  EQU  PI  A2DA*3 
IN2  EQU  PIA2DA 

T2  EOU  PIA2DB 

ft 

•  PIA3-REF.  UNIT  PROC. 

•  A  SIDE-INPUT 

«  b  SIDE-OUTPUT 

IA3DA  EQU  SC20B 
IA308  EQU  PIA3UA  +  I 
i A3CA  EOU  PIA30A*2 
lAJCb  EQU  PIA3DA+3 
;,I3  EOU  PIA3UA 
"3  EOU  PIA  3DB 

'  /IA4-N0T  ASSIGNED 

IA4DA  EQU  $C20C 
lA4Ud  EOU  PIA4DA+I 
i A4C A  EOU  PIA4DA+2  ' 

-!A4Gd  tou  PIA4UA*3 
:  :.4  EOU  PIA4DA 
i 4  tou  PIA4UB 

•  artl  rCH  MASKS  ( PI  A2A ) 

:■ -OSM  EOU  *00000001  FIRE  ORDER 


*  SNITCH  WORDS  (PIA2B) 

FOAND  EOU  I  FIRE  ORDER  ACK 
FCAHD  EOU  2  FIRE  COMMAND  ACK 
RRAWD  EOU  4  READY  REQUEST  ACK 
CF AND  EQU  8  CHECK  FIRE  ACK 

* 

*  LED  WORDS  (PIA2) 

*  ADDRESS-DATA 

* 


wm  cuu  »(JUUU  GOMM. 

QUACK  EOU  $0004  GUN  ORDER 
REDY  EQU  $0002  READY 
■FIRE  EOU  $0001  FIRE 
BDSET  EOU  $0040  BASE  DEF.  SET 
OPRAT  EOU  $0020  OPERATE 
STBY  EQU  $0010  STANDBY 
CLED3  EOU  $0088  CARRIER  DET. 
CI.ED2  EOU  $0084  CJ-3  STATUS 
CLEDI  EOU  $0082  CJ«2  STATUS 
CLEDO  EOU  $0081  CJ-L  STATUS 
CLED5  EOU  $00 AO  NAK 
CLED4  EQU  $0090  AGLS  BUSY 


* 

*  pehhiperal  equates 

* 

*  COM M  AC I A 
COMC  EQU  $c 1 00 
COMS  EOU  COMC 
COMX  EOU  COMC*l 
COMR  EQU  COMC*l 

* 

*  AGLS  AC  I A 
AGC  EOU  SCI 02 
AGS  EQU  AGC 
AGX  EOU  AGC*  I 
AGR  EOU  AGC* I 

* 

*  TEST  PORT  ACIA 
rPC  EOU  $9808 
TPS  EOU  TPC 

IPX  EOU  TPC* I 
1  PR  EQU  TPC*I 

* 

*  FUZE  SETlEK  ACIA 

* 

FSC  EQU  SC080 
PSS  EOU  FSC 
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rSX  EQU  FSC*I 
FS3  EQU  FSC*I 

♦ 

*  VELOCIMETEH  ACIA 

* 

VLC  EOU  SC082 
VLS  EOU  VLC 
VLX  EOU  VLC*I 
VI.H  EQJ  VLC+I 
* 

*  TIMER 

TCHI3  EOU  S9B00 
iSTS  EOU  $9801 
TCH2  EOU  $9801 
riD  EOU  $9802 
i 2U  EQU  $9804 
T3D  EQU  S9B06 

*  TIMER  CONSTANTS 
THE  EOU  XO 1 000000 
Till  EOU  XOOOOOOOO 

* 

T2IE  EOU  XOIOOOOOI 
T2 I I  EOU  XOOOOOOO I 
• 

T3IE  EOU  XI 1 00001 1 
T3II  EOU  XI 000001  I 
* 

*  TIMEOUT  CONSTANTS  «.l  SECONDS) 
CONTT  EOU  0100  CONNECT  THY 

CUD  EOU  0007  CAHHIEH  UP  DELAY 
C JO  EOU  0005  CAHHIER  DN  DELAY 
COT  EOU  36000  CASHIER  DETECT 
«T  EOU  0300  NAIT 

*  COMM  EQUATES 

* 

50H  EOU  l  START  OF  HEADER 

SMFC  EOU  $42  SERVICE  MSG  FORMAT  CODE 

i  MFC  EOU  $48  INFO.  MSG  RlHMAT  CODE 

SLFC  EQU  $43  SELECT  MSG.  FORMAT  CODE 

SC  EOU  $41  SEQUENCE  CODE 

AC  EOU  $40  ADDRESS  CODE 

IC  EQU  $40  IUENT  CODE 

STX  EQU  2  START  OF  TEXT 

ETX  EOU  3  END  OF  TEXT 

NOC  EOU  $40  NO  REO  OPERATION  CODE 

SMTY  EOU  $40  SERVICE  MSG.  TYPE 

Sl.TY  EOU  $42  SEI.ECT  MSG  TYPE 

JQC  EOU  $42  DATA  REO  OPEN  CODE 

*  ACIA  INTERRUPT  CONSTANTS 
aIE  EOU  XOOIOIOOI  XMIT  INT  ENd 
3  IE  EOU  XIOOOIOOl  RECV  INT  ENtt 
N IE  EOU  XOOOOIOOI  INT.  OFF 

■m 

* 

IFNE  FLAGC 

* 

*  COMM  INTERRUPT  CONSTANTS 


CNIE  EOU  XO 1001 001 
CRIE  EOU  XI  1001001 
CXIE  EOU  XOOIOIOOI 
RTS  EOU  SOOOOIOOI 
ENDC 


IFEO  FLAGC 


CNIE  EOU  XOOOOIOOI 
CRIE  EOU  XIOOOIOOl 
CXIE  EOU  XOOIOIOOI 
RTS  EQU  XOOOOIOOI 
ENDC 
PAGE 

ORG  $1000 

*  COMM  RECEIVE  BUFFER 
RBUF  RMB  60 

REND  EOU  * 

RDATA  EOU  RBUF+7 

*  COMM  TRANSMIT  BUFFER 
XBUF  RMB  60 

XEND  EOU  * 

XDATA  EOU  XBUF+7 

*  AGLS  "FROM*  BUFFER 
AGLF  EOU  * 

RMB  5  B.EV.  COMMAND 
RMB  5  ELEV.  ACTUAL 
RMB  5  ELEV.  ERROR 
RMB  5  AZ.  COMMAND 
RMB  5  A Z.  ACTUAL 
RMB  5  AZ.  ERROR 
RMB  5  ACTIVE  EL  CMND 
RMB  5  ACTIVE  AZ  CMND 
RMB  I  COMM  MODE 
RMB  2  LEVEL.  STATUS 
RMB  I  AGLS  MODE 
RMB  I  -  LOCAL  MODE 
AGFE  EOU  * 

*  AGLS  "TO"  BUFFER 
AGLT  RMB  5  ELEVATION 

RMB  5  AZIMUTH 
RMB  I  MODE 
ACTE  EOU  * 

*  • 

*  DISPLAY  BUFFER 
DISBUF  EOU  * 

RMB  4  DEFLECTION 
RMB  2  ELEVATION 
RMB  2  DUMMY 
RMB  2  ELEVATION 
HMB  3  FUZE 
RMB  I  CHARGE 
DISEND  EQU  * 

* 

*  VELOCITY  BUFFER 

* 
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VELBUF  HMB  10 


XI OLE  RMB  2  IDLE  VECTOR  FLAG 


*  FLAGS 
FLAG  EOU  * 

c  TXF  HMB  I  END  TEXT  FLAG 
CJ  RMd  I  COMM  STEERING 
ZHFD  HMB  I  REO.  DISC.  FLAG 
ZIOM  HMB  I  ID  MESSAGE  FLAG 
XPASS  HMB  I  XMIT  FIRST  PASS 
HJ  HMB  I  RECU  DATA  FLAG 

wi.sc  hmb  i  last  hecd  seo  code 

1ULEF  HMB  I  IDLE  FLAG 

OBJ  HMB  I  WAIT  FLAG 

CUSY  HMB  I  CHT  busy 

h AG  HMB  I  HEAD  AGLS 

wAG  HMB  I  WRITE  AGLS 

ZHHF  HMB  I  HEADY  FOR  HESF 

V OF  HMB  I  VALID  DATA  FLAG 

CONN  HMB  I  CONNECT  FLAG 

OAF  HMB  I  DATA  AVAIL  FLAG 

OUTF  HMB  I  WHITE  FDC  GET  OUT 

PASS  HMB  I  HEAD  FDC  .FIRST  HASS 

FILLF  HMB  I  FILL  CHAR  FLAG(PXMT) 

VERF  HMB  I  AGLS  VERIFY 

CTSUBY  HMB  I  CLR  TO  SEND  UP  BUSY 

CTSDBY  HMB  I  CLR  TO  SEND  UN  BUSY 

TDCDBY  HMB  I  CARRIER  OET.  BUSY 

wAITF  HMB  I  WAIT  DUE  FLAG 

FEND  EOU  * 

*  CONSTANTS 

BEND  RMB  2  BUFFER  END  POINTER 

*  8JFFEH  POINTERS 
BRI  RMB  2  RECEIVE 
bXI  RMB  2  TRANSMIT 

AGXX  HMB  2  AGLS  TRANSMIT 
AGRR  HMB  2  AGLS-  RECEIVE 
XBCC  HMB  I  BCC  XMIT 
HBCC  HMB  1  BCC  RECEIVE 
HERR  RMB  I  RECV  ERROR  CODE 
HSTAT  HMB  l  HECV  STATUS  WORD 

tmpx  hmb  j  rj  temp  index 

HXFC  HMB  I  RECD  FORMAT  CODE 
HXOC  RMB  I  RECD  OPER  CODE 
ol.DSC  HMB  1  SEOUENCE  CODE  SAVE 
SAVES  HMB  2  X  REG  SAVE  <INT) 

1  SAVES  RMB  2  I NT  STACK  SAVE 
iAVEX  HMB  2  X  REG  SAVE 
SAVA  HMB  I  SAVE  A  REG 
SAVB  HMB  I  SAVE  B  REG 
0LDCR2  HMB  I  TIMER  CR#2  WORD 
VECTI  HMB  2  TIMER  I  NT  VECTOR  I 
VECT2  HMB  2  TIMER  INT  VECTOR  2 
APTH  RMB  2  AGLS  BUFFER  POINTER 
TPPrR  HMB  2  TEST  PORT  POINTER 


i'PPTE  HMB  2  TEST  PORT  END 

SPC  RMB  I  SPACE  COUNT 

ASP  RMB  1  SPACE  COUNT 

RSHD  RMB  I  RECD  STATUS  WORD  (4CHAR) 

ASMO  RMB  I  ACK  STATUS  WORD 

1HY  RMB  I  CONNECT  TRIES 

OISADD  HMB  I  DISPLAY  ADOHESS 

DEST  RMB  2  CHAR  XFER  DESTINATION 

AGTRY  HMB  I  AGLS  DATA  TRIES 

OI.DSW  HMB  I  MODE  SNITCH  SAVE 

LEDWD  HMB  2  CURRENT  LED  STATUS 

CEND  EOU  * 

* 

*  INTERRUPT  DRIVEN  TIMERS  <100  MSEC) 

* 

*  TIMER  TABLE  (DECREMENT) 

TMTB  EOU  * 

TFI  RMB  I 
TIM  I  RMB  2 

* 

TF2  HMB  I 
TIM2  HMB  2 
* 

TF3  HMB  I 
TIM3  RMB  2 
* 

TF4  HMB  I 
TIM4  RMB  2 
* 

TF5  HMB  » 

TIM5  HMB  2 
PAGE 

* 

*  AGLS  VEHICLE  COMM  PROCESSOR 

* 

*  START  VECTOR  FOR  POWER  UP  OR  RESET 

* 

ORG  SE8 00 
STHT  EQU  * 

*  H-IO  DEBUG 
LDS  #*7F 

*  SETUP  PIAS 
JSH  PIAS 

*  CLEAR  BUFFERS 

*  DATA  BUFFERS 
LUX  fUISEND 
STX  BEND 

LDX  #HBUF 
JSH  CL BF 

*  FUG  BUFFER 
LDX  MFEND 
STX  BEND 
1.DX  MFUG 
JSH  CLBF 

*  CONSTANT  BUFFER 
I.DX  fCEND 

STX  BEND 
LDX  #BHI 
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JSK  CL UP 
«  ScT  THY  COUNT 
I.OA  A  #10 
ST  A  A  THY 

*  SEED  SEO.  CODE 
IDA  A  #SC 

STA  A  OLUSC 

*  CLEAH  TIMERS 
JSH  CLTM 

*  MAKE  SURE  AGLS  THERE 
JSR  RUTHER 

*  ENABLE  INTERRUPTS 
CLI 

*  INITIAL  CONNECT 
I  00 NX  JSR  ICON 

»  CONNECT  PROCESSOR 
JSR  CONP 


*  SYSTEM  ACTIVE  LOOP 

* 

LOOP  EOU  * 

•  TEST  BASE  DEFLECTION 
JSR  TBD 

«  RUP  REQUEST  TIMER  <TF3> 
TST  TF3 
BNE  L(K)PI 


*  ThSl  IDLE  FLAG 
L(X)P  I  TST  IDLEF 

BEO  LOOP 3 

*  IDLE  FLAG  SET 
LDX  #* 

JMP  IDLE 

*  TEST  PROCESS  COMM 
I.00P3  I.DA  A  CJ 

CMP  A  #1 
BNE  LOOPS 
I.DA  A  #CLEDO 
JSH  LEDON 
JSH  CLRL I 2 
BRA  L(X)P 
LOOPS  CMP  A  #2 
BNE  L00P6 
LDA  A  #CLEDI 
JSR  LEDON 
JSR  CLRL02 
BRA  L(X)P 
LOOM  CMP  A  #3 
BNE  LOOP 

*  PROCESS  RECD  DATA 
LDA  A  #CLED2 

JSR  LEDON 
JSR  CLRLOI 
JMP  C3 


LDX  #10 
STX  TIM3 
INC  TF3 

*  REQUEST  RUP  OUTPUT 
JSH  REOHUP 

*  HEAD  RUP 
JSR  RRUP 

*  AGLS  BUSY? 

TST  HAG 
BNE  LOOP I 

*  TEST  RUP  MODE  SN 
LDA  A  IN2 

*  EXCLUDE  LAMP  TEST 
BIT  A  #*F0 

BEO  LOOP  I 

*  MASK  TO  SIGNIFICANT  OATA 
AND  A  #*0001  I  000 

CMP  A  OLDSN 
HNE  1.00P9 

*  TEST  SETSCLR  P8 
TST  P1A2CB 

BPL  UIOPI 

*  MODE  OK? 

EOR  A  #<00011000 
BNE  LOOP# 

LDA  A  PIA2DB 
BRA  LOOP  I 
L(X)P9  STA  A  OLDS# 

>  KH1TE  TO  AGLS 
,.(X)P4  JSR  COMACI. 


*  POWER  UP  ENTRY 

• 

P#RUP  EOU  * 

IDS  #$7F 

•  CLEAR  BUFFERS  AND  FLAGS 
LDX  #FEND 

STX  BEND 
LDX  #RBUF 
JSR  CLBF 
JSH  CLTM 

•  INITIAL  P I  AS 

ICU  PI  1C 

•  MAKE  SURE  AGLS  THERE 
JSR  RUTHER 

LDX  #0 

•  ENABLE  FOR  TEST  PORT 
CLI 

• 

*  COMM  IDLE  LOOP 
IDLE  EOU  * 

STX  XI  OLE 
LDX  #0 
STX  LEDNO 
CLR  CONN 

*  inhibit  timer,  comm  a  aoi.s  INT 

LDA  A  #NIE 
STA  A  AGC 

* 

jsr  clhi 

JSH  CLR2 
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•  SA«  I 


IDLE  I  EQU  * 

*  TEST  bASE  DEFLECTION 
JSH  TBD 

*  HUP  HEOUEST  TIMER  (TF3) 

TST  TF  3 

BNE  IDLE 2 

* 

LDX  #10 
STX  TIM3 
INC  TF3 

* 

*  HEOUEST  HUP  OUTPUT 
JSR  REQHUP 

*  HEAD  RUP 
JSR  HR  UP 

*  AGLS  BUSX? 

TST  HAG 
BNE  IDI.E2 

*  TEST  RUP  MODE  SM 
LUA  A  IN2 

*  EXCLUDE  LAMP  TEST 
BIT  A  #SFO 

BEO  IDLE2 

*  MASK  TU  SIGNIFICANT  DATA  IBD.BS.NOR) 
AND  A  #*00011000 

CMP  A  OLDSN 
BNE  IDLE4 

*  TEST  CLR/SET  PB 
TST  PIA2CB 

BPL  IDLE2 

*  MODE  OK? 

EOR  A  #*00011000 
BNE  I0LE3 
LDA  A  PIA20B 
BRA  I  OLE  2 
1DLE4  STA  A  OLDSN 

*  WHITE  TO  AGLS 
IDLE3  JSR  COMAGL 
-  CLEAR  COMM  AC I A 
IPI.E2  LDA  A  #S43 

STA  A  OOMC 

*  LITE  "I  DLE^IND. 

JSR  I  DU. 

JMP  IDLE  I 
PAGE 

*  SUBROUTINES 


*  PROCESS  TRANSMIT 

* 

PXMT  LDX  BXI 
TST  FILLF 
BGT  PXM4 
BMI  PXM5 
LDA  A  O.X 
BEO  PXMI 
INX 

STX  BXI 
*«SOH? 

CMP  A  #SOH 
BNE  PX M2 

*  YES(  «SOH 
CLR  XBCC 
BHA  PXM3 

*  »  DATA 
PXM2  TAB 

EOR  B  XBCC 
STA  B  XBCC 

*  TRANSMIT  CHAR 
JSR  XMIT 

PXM3  CLC 
RTS 

*  LAST  CHAR 
PXMI  LDA  A  XBCC 

JSR  XMIT 
INC  FIIJ.F 

ac 

RTS 

*  TRANSMIT  FILL  CHAR 
PXM4  LDA  A  #*20 

JSR  XMIT 
NEC  FIIJ.F 
CLC 
RTS 

*  SECOND  TIME  AROUND 
PXM5  LDA  A  #S20 

JSR  XMIT 
CLR  FIIJ.F 
LDX  #XBUF 
STX  BXI 
SEC 
RTS 

* 

*  PROCESS  RECEIVE 


*  CLEAR  BUFFEH  ROUTINE 

*  X-  BUFFEH  START 

*  BEND-BUFFEH  END 


CLBF  CLH  0,X 
(NX 

CPX  BENO 
BNE  CLBF 
HTS 


PREC  JSR  RECV 
BCS  PRE6 

*  CLEAR  XMIT  FLAG 

a.c 

RTS 

PRE6  LDX  BRI 

*  CHAR  »  8CC? 

INC  ETXF 
BEO  PREI 

*  NO,  «  DATA 
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CLR  ETXF 
STA  A  O.X 
IUX 

Six  BRI 

*  TEST  HEC1EVE  STATUS 
JSH  JSTS 

*  TEST  BUFFEH  OVERRUN 
JSH  BOVH 

*  CHAR  *  SOH? 

CMP  A  #SOH 
BEQ  PRE2 

»  CHAR  »  ETX2 
CMP  A  #ETX 
UNE  ^RE3 
dec  ETXF 
PHE3  EOR  A  RBOC 
STA  A  RSCC 
CLC 
RTS 

*  FIRST  CHAR 
HRE2  CLR  RBOC 

CLR  RERH 
I.DX  #RBUF 
STA  A  0,X 
I  NX 

STX  BRI 
INC  VDF 
CLC 
RTS 

*  LAST  CHAR 
PRE I  EOR  A  SBC C 

BNE  PHE4 
PRE5  LOX  #RBUF 
STX  BRI 
CLR  VUF 
SEC 
RTS 

*  8CC  ERROR 
PHE4  LDA  A  #$I0 

EOR  A  RERR 
STA  A  RERR 

HD  A  ppPK 

*  RECEIVE  CHAR  ROUTINE 


«ECV  LUA  A  COMS 
HIT  A  #1 
HNE  HECVI 
*  NO  DATA  CALL 
IDA  A  CO  MR 


ac 

RTS 


*  DATA  CALL 
kECVI  STA  A  RSTAT 
READ  CHAR 


SEC 

RTS 


1 


*  TEST  RECEIVE  STATUS 

* 

JSTS  PSH  A 
LDA  A  RSTAT 

*  PARITY  ERROR? 

BIT  A  #$40 
BEQ  JSTS  I 

LDA  B  #S  18 
EOR  B  RERH 
STA  B  RERR 

*  OVER  RUN  ERROR? 

JSTS I  BIT  A  #$20 

BEQ  JSTS2 
IDA  B  #B 
EOR  B  RERR 
STA  B  RERR 

*  FRAMING  ERROR 
JSTS2  BIT  A  #$10 

BNE  JSTS 3 
PUL  A 
RTS 

JSTS3  LDA  B  #$20 
EOR  B  RERR 
STA  B  RERR 
PUL  A 
RTS 

* 

«  TRANSMIT  CHAR. 

XMIT  LDA  B  COMS 
BIT  B  #2 
BNE  XMIT I 

*  NO  DATA  CALL,  RESET  RECVR 
LDA  A  00 MR 

RTS 

*  DATA  CALL 
XMITI  STA  A  CONX 

RTS 

*  INHIBIT  XMIT/ENB  RECV 


COMIX  LDA  A  #CRIE  RECV  INT  ENB 
STA  A  COMC 
LDA  .A  COMR  RESET 
RTS 

* 

*  INHIBIT  CONN  INT 
COMOFF  IDA  A  #CNIE 

STA  A  COMC 
LDA  A  COMR 
RTS 

• 

♦  INHIBIT  RECV/ENB  XMIT 

* 

*  PREP  COMM 
COMIR  EOU  * 

*  MAKE  SURE  RECD  CAR  ON 
COM  13  LDA  A  COMS 
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BIT  A  #4 
BEO  QUMI 3 
IDA  A  #WTS 
ST  A  A  COMC 

*  A AIT  CARRIER  UP 
COM II  JSH  CTSU 

BCC  CUMI J 
LUA  A  #SOH 
COM  12  LUA  B  COM3 
BIT  B  #2 
BEQ  C0MI2 
ST  A  A  a)  MX 

LDA  A  #CXIE  XMIT  I NT  ENABLE 

ST A  A  COMC 

RTS 

* 

»  TEST  BUFFER  OVERRUN 
* 

BOVH  CPX  #RENO 
BEO  BOVRI 
RTS 

*  OVERRUN  HAS  OCCURRED 
oOVRI  LDA  B  MS 

EOR  B  RERR 
ST  A  B  RERR 
UEX 

STX  BRJ 
RTS 

*  COMMUNICATION  POLL 

* 

CPOIJ-  LDA  A  CJ 
CMP  A  #1 
BEO  CPOLI 
CMP  A  #2 
BEO  CP0L2 

*  RESET  INTERRUPT 
LUA  A  COMR 

RTS 

*  TRANSMIT  LOOP 
CPOLI  EOU  * 

*  FIRST  PASS? 

INC  XPASS 
BNE  CP0L6 

*  SETUP  MESSAGE  HEAOERS 
CPOLI I  JSR  SETUM 

*  SNAP  SEO.  CODES 
JSR  SSC 

*  PRCESS  TRANSMIT 
CPU  1.6  Cl -ft  XPASS 

JSR  PXMT 
BCS  CP0L5 
RTS 

*  SnITCH  TO  RECEIVE 
CPOLS  EOU  * 

*  CLEAR  RECEIVE  BUFF 
LUX  MRBUF 

JSR  CLRB 
LDX  MHBUF 
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STX  BRI 

*  SNITCH  COMM  INT 
JSR  COMIX 

LDA  A  #2 
ST A  A  CJ 
RTS 

* 

*  RECEIVE  LOOP 
CP0I.2  EOU  * 


IFNE  FI-AGC 

*  TEST  CARRIER 
LDA  A  MCLED3 
JSH  LEOOFF 
JSR  rocu 

BCS  CPOI.IO 
LDA  A  COMR 
RTS 

• 

EN  DC 

* 

*  PROCESS  RECEIVE 
CPOLI  0  LDA  A  #CLED3 

JSR  LEDON 
JSR  PREC 
BCS  CP0L7 
RTS 

*  SNITCH  TO  UNPACK 
CP0L7  LDA  A  03 

STA  A  CJ 
JSR  COMOFF 
LDA  A  #CLED3 
JSR  LEDOFF 
RTS 

* 

*  SETUP  MESSAGE  ROUTINE 

• 

SETUM  EOU  * 

*  TEST  RFD  FI. AG 
TST  ZRFD 

BEO  SETUM! 

j  *  SETUP  SERVICE  MESSAGE 
LDA  B  #*44 

JSH  SSM 

*  TEST  1.0.  MESSSAGE 
SETUMI  INC  ZIDM 

BNE  SETUM2 

*  SETUP  SELECT 
LDA  B  #*42 
JSR  SSLM 

SETUM2  CI.R  ZIDM 

*  test  ready  for  response 

INC  ZRRF 
BNE  SETUM3 

*  SETUP  HEADY  FOR  RESPONSE 
LUA  B  #$46 

JSH  3IM 
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*  SETUP  XMIT  POINTER 
5ETUM3  CLR  ZRRF 

I.DX  #XBUF 
STX  BXI 
HTS 

* 

•  CARRIER  UP  DELAY 

* 

CTSU  EOU  * 

TST  CTSUBY 
BHE  crsu I 

*  SETUP  TIMEOUT  VECTOR 
LUX  #CUO 

STX  TIM2 
INC  TF2 
INC  CTSUBY 

*  TEST  CTS-UP 
CTSU  I  TST  TF2 

BEO  CTSU2 

CLC 

RTS 

*  INHIBIT  TIMER 
CTSU2  CLN  CTSUBY 

SEC 

RTS 

* 

*  CARRIER  DUNN  DELAY 
CTSD  EOU  * 

TST  CTSDBY 
BNE  CTSU I 

*  SETUP  TIMEOUT  VECTOR 
LUX  #COU 

STX  TIM2 
INC  TF2 
INC  CTSDBY 

*  TEST  CTS  DORN 
CTSD I  TST  TF2 

3EQ  CTSU2 

CLC 

HTS 

>  INHIBIT  TIMER 
CTS  02  CLH  CTSDBY 
SEC 
RTS 

* 

*  TEST  CARRIER  DETECT 

» 

i  CCD  EOU  * 

TST  TDCOBY 
BNE  TDC02 

»  SETUP  TIMEOUT  VECTOR 
I.DX  #IDI.EI 
STX  VECTI 
LUX  #* 

STX  XIDI.E 
LUX  #< CUT/2- 1  I 

JSR  SET I  CARRIER  DETECT  TIME 
INC  TUCUBY 


*  TEST  DCO  UP 
TDCD2  I.DA  A  COMS 

BIT  A  #s 4 
BEO  TDCDI 
LDA  A  CO  MW 
CLC 
RTS 

*  INHIBIT  TIMER 
TUCDI  JSR  CLRI 

CLR  TDCOBY 

SEC 

RTS 

* 

*  UNPACK  ROUTINE  (CJ«3> 

* 

C3  EQU  * 

*  TEST  ERROR  FLAG 
TST  RE HR 

BNE  C36 

*  UNPACK  RECEIVED  DATA 
LUX  #RBUF 

I.DA  A  O.X  SOH 
ADO  A  6.X  STX 

*  SOH  *  STX  OK? 

CMP  A  #3 

BEO  C3I 

*  NO 

LDA  B  #$28 
EOR  B  RERR 
STA  B  RERR 

r u  jup  do 

*  TEST  STX* I  (DATA/NO-OATA) 
C3I  CLR  B 

LDA  A  7,  X 
CMP  A  #3 
BEO  C 32 
I.DA  B  #4 
C32  STA  B  HJ 

*  TEST  OPEH.  CODE 
CLR  B 

LDA  A  4.X 

AND  A  #*38  MASK  ACK/NAK 
BNE  C33 
LDA  B  #2 
C 33  EORB  RJ 
STA  B  RJ 

*  TEST  SEOUENCE  CODE 
LUA  A  2.X 

CMPA  RLSC 
BEO  C34 
LUA  B  #1 
EOR  B  RJ 
STA  B  RJ 
C34  STA  A  RLSC 

*  FIX  HJ  TO  INDEX 
LDA  A  RJ 

AND  A  #7 
STA  A  TMPX 
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*  BRANCH  IF  DATA 
CMP  A  #4 

BLr  C3b 
JSR  80 AT 

*  BRANCH  TO  PROCESS  ACK /NAK 
C35  l.DA  B  TMPX 

LUX  KRTBL 
JSH  FI  XX 
JMP  0,X 

* 

*  RECEIVE  RESPONSE  TABLE 

*  RJ*0  NO-OATA  MAX  OLD- SC 

*  RJ«I  NO -OAT  A  NAK  NEW- SC 
«  8J»2  NO-DATA  ACK  (1LD-SC 

*  KJ«3  NO-DATA  ACK  NEN-SC 

*  RJ»4  DATA  NAK  OLD-SC 

*  HJ-b  DATA  NAK  NEa-SC 

*  RJ«6  DATA  ACK  OI.D-SC 

*  RJ«7  DATA  ACK  NEN-SC 

* 

»  ACKVNAK  TABLE 
RTBL  JMP  RO  RI-0  NAK 
JMP  RO  I  NAK 
JMP  R2  2  ACK 
JMP  R2  3  ACK 
JMP  RO  4  NAK 
JMP  R5  5  PROCESS 
JMP  R6  6  RESPOND  ONLY 
JMP  Hi>  7  PROCESS 

* 

*  FIX  POINTER  BY  INDEX 
1 1 XX  TST  B 

BNE  FI  XX  I 
RTS 

rlXXI  I  NX 
INX 
I  NX 
DEC  8 
BNE  FI  XX I 
RTS 

* 

*  process  data  message 
« 

POAT  LDX  #RBUF 
IDA  A  l,X 

CMP  A  #$44 

BNE  POAT I 

*  DATA  -  MESSAGE  FOR  CRT 
JSR  XFRMSG 

10A  A  #6 
ST  A  A  TMPX 

RTS 

*  OAT A  TO  BE  PROCESSED 
RUATI  LDA  A  HJ 

CMP  A  Mb 
BtO  PDAT2 
CMP  A  #7 
BEG  PD  AT  2 
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RTS 

*  TRANSFER  DATA  FROM  REC  BUFFER 
PDAT2  JSH  TRAN 

*  SET  DATA  FLAG 

as  oaf 

INC  DAF 
RTS 

* 

*  ACK/NAK  PROCESSING,  RJ-  0.1,4 

RO  LDA  A  #CLEDt> 

JSR  LEDOFF 
TST  RERR 
BEO  ROT 

*  SETUP  NAK  RESPONSE 
LDA  A  #CLED5 

JSR  LEDON 
JSR  SNR 

*  SNAP  SEO  COOES 
ROI  JSR  SSC 

*  RESET  FOR  TRANSMIT 
X  IT  EOU  * 

*  TEST  CONNECT 
TST  CON N 

BNE  XITI 
JMP  CO  NT 
XITI  LDA  A  #1 
STA  A  CJ 
LDA  A  #*FF 
STA  A  XPASS 

*  ENB  XNIT/INH  RECV 
JSR  COMIR 

JMP  L(K)P 

*  RJ  -  2,3 

R2  l.DA  A  #CI-EDS 
JSR  LEDOFF 
LDX  #RBUF 

*  STRIP  FORMAT  CODE 
LDA  A  I ,X 

STA  A  RXFC 

*  STRIP  OPER  CODE 
LDA  A  4,X 

AND  A  #7 
STA  A  RXOC 
**  TEST  SERVICE  MSG 
l.DA  A  RXFC 
CMP  A  #SMFC 
BEO  H24 

*  TEST  RANGE  OF  FORMAT  CODE 
BLS  R2ER 

CMP  A  #$4D 
BHI  R2ER 

*  TEST  OPER  CODE 

*  NO  REO  0C7 
LDA  A  RXOC 
CMP  A  #0 
BNE  R2I 

*  TEST  IF  DAfA  ACK 


FI 
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TST  OAF 
BNE  R22 

*  SET  HEADY  HESP. 

CLH  ZRHF 

DEC  ZHHF 
R 22  CLR  DAF 

*  SETUP  INFO  MESSAGE 
LUA  b  #*40 

JSfi. SIM 
JMP  XIT 

*  TEST  IF  DATA  REQUEST 
*21  CMP  A  #2 

BNE  H2ER 

*  SETUP  DR  ACIC  MORD 
LDA  A  #*0F 

ST  A  A  ASAD 

*  SETUP  DATA  MESSAGE  HEADER 
LDA  0  #$40 

JSR  SUMH  HEADER 

*  SETUP  DATA  REPORT 
JSW  SDR 

*  SETUP  DATA  REPORT  TRAILER 
JSR  SDRT 

*  SET  DATA  FLAG 
CLR  DAF 

INC  DAF 
JMP  XIT 

* 

*  PROCESS  SERVICE  MESSAGES 

*  TERMINATE 
k24  LDA  A  HXOC 

CMP  A  #*  3 
BNE  R25 

*  SET  IDLE  FLAG 
CLR  IOLEF 

INC  IOLEF 
*26  LDA  B  #S40 
JSR  SSM 
JMP  XIT 

*  SELECT? 

W25  CMP  A  #$2 

BEQ  R26 

*  REQUEST  FOR  DISCONNECT? 

CMP  A  #S4 

BNE  R27 

*  SET  FLAG  FOR  NEXT  PASS 
LDA  A  #2 

ST  A  A  ZRFD 
JMP  XIT 

*  DISCONNECT? 

*27  CMP  A  #*6 

BNE  R2B 
JSR  01 SCON 
JMP  LOOP 

*  NO  INSTRUCTION? 

*28  CMP  A  #»0 

BEQ  R26 

*  ERROR  PROCESSOR 


R2EH  LUA  A  #$28 
ST  A  A  RERR 
JMP  RO 

• 

*  RJ  -  t>,7 
H5  EOU  * 

LDA  A  #CLED5 
JSR  I.EDOFF 
JMP  XIT 

*  RESPOND  ONLY, ALREADY  PROCESSED  THIS  SC 
R6  LDA  A  #CLED5 

JSR  LEDOFF 
LDA  B  #$40 
JSR  SIM 
JMP  XIT 

* 

*  SETUP  BAIT  MESSAGE 

• 

BAIT  EOU  * 

*  BRING  UP  CARRIER 
LDA  A  #RTS 

STA  A  COMC 

*  HOLD  TO  DELAY 
LDX  #0 

MAI  DEX 
BNE  MAI 

*  GET  MESSAGE 
LDX  #SMM 
STX-  SAVEX 

MA2  LDX  SAVEX 
1.0A  a  0,X 
INX 

STX  SAVEX 
LDX  #COMC 
JSR  A(X)L 
TST  A 
BNE  MA2 

*  TURN  OFF  CARRIER 
LDA  A  #CNIE 

STA  A  COMC 
CLH  MAITF 
RTS 

* 

SMM  FCB  SOH, I MFC, SC, AC, $44,  IC,STX,ETX  ,0 
* 

*  SETUP  SERVICE  MESSAGE 
SSM  LDX  #SMH 

JSR  XFEH 
RTS 

SMH  FCB  SOH.SMFC.SC.AC.NOC.IC.STX.ETX.O 

*  TRANSFER  DATA  FROM  STACK  ARRAY 

*  TO  X  ARRAY 

* 

XFEH  STX  SAVEX 
LDX  #XBUF 
STX  DEST 


FfO 
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XFEH2  LUX  SAVEX 
I. DA  A  O.X 
INX 

STX  SAVEX 

* 

LDX  DEST 
STA  A  O.X 
INX 

STX  DEST 
TST  A 
BNE  XFER  2 

*  CLEAN  WEST  OP  BUFFER 
JSR  CLXB 

*  SET  OPER  CODE 
LDX  #X8UF 

STA  B  4.X 
NTS 

* 

*  SETUP  INFO  MESSAGE 

• 

SIM  LDX  # 1MH 
JSR  XFER 
RTS 

* 

IMH  FCB  SOH ,  I  MFC ,  SC ,  AC  ,NOC ,  1C  ,STX ,  ETX  ,0 
* 

*  SETUP  DATA  MESSAGE  HEADER 

* 

SUMH  LDX  #OMH 
JSR  XFER 
RTS 

OMH  FCB  SOH, I MFC, SC, AC, HOC, 1C, STX ,0 
* 

»  SETUP  SELECT  MESSAGE 
* 

3SLM  LDX  #SSH 
JSR  XFER 
NTS 

* 

SSH  FCB  SOH,SMFC,SC,AC,NOC« IC.STX 
FCB  Erx.o 

* 

»  STUP  NAK  RESPONSE 
* 

SNR  LDA  A  REHR 

*  EXTRACT  NAK  BITS 
AND  A  #S38 

STA  A  RERH 

*  RECOVER  HEADER 
LDX  #XBUF 

I.DA  A  4  ,X 

*  REMOVE  MAK  BITS 
AND  A  #$47 

*  INSERT  RERR  MESSAGE 
EOH  A  RERR 

STA  A  4,X 
RTS 

* 


*  SNAP  SEQUENCE  CODES  141-42) 

* 

SSC  LDX  #XBUF 
LDA  A  OI.DSC 
EOR  A  #3 
STA  A  2,X 
STA  A  OLDSC 
RTS 

# 

*  SETUP  TIMER  #1  (INTERRUPT) 

* 

SET  I  LDA  A  OLDCR2 
ORA  A  #1 
STA  A  0LDCR2 
STA  A  TCR2 

*  STORE  TIME  &  START 
LDA  A  TSTS 

LDA  A  #TI IE  TIMER  I 
STX  TID 
STA  A  TCRI3 
RTS 

* 

*  CLEAN  TIMER  #1  (INTERRUPT) 

• 

CLRI  LDA  A  0LDCR2 
ORA  A  #1 
STA  A  0LDCR2 
STA  A  TCR2 

*  DISABLE  INTERRUPT 
LDA  A  #TI II 

STA  A  TCRI3 
RTS 

h 

*  SETUP  TIMER  #2  (INTERRUPT) 

* 

SET2  LDA  A  #T2IE 
STA  A  0LDCR2 
I.DA  B  TSTS 

*  STORE  TIME  &  STAHT 
STX  T2D 

STA  A  TCR2 
RTS 

* 

*  CLEAN  TIMER  #2  (INTERRUPT) 

• 

CLR2  LDA  A  #T2 1 1 
STA  A  0LDCR2 
STA  A  TCR2 
RTS 

* 

*  SETUP  TIMER  #3  (INTERRUPT) 
SET3  LDA  A  ()U)CR2 

AND  A  1 1  II  1110 
STA  A  OL0CR2 
STA  A  TCR2 

*  SET  TIME  A  STAHT 
LDA  A  TSTS 

LDA  A  #T3IE 
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SIX  TJU 
STA  A  TCR13 

wrs 

* 

*  CLEAR  TIMER  #3  (INTERRUPT) 

* 

CLK3  LDA  A  0LDCR2 
AND  A  #XUII  1 1  tO 
STA  A  OLDCR2 
STA  A  TCR2 

*  DISABLE  INTERRUPT 
LDA  A  #T3II 

STA  A  TCRJ3 
RTS 

* 

•  INTERRUPT  SERVICE  ROUTINE 

• 

ISER  EOU  * 

*  TEST  TIME 
STS  ISAVES 
LDA  A  TSTS 
BPL  ISER I 

*  TEST  CLOCK  (TIMER  #3-100  MSEC) 
BIT  A  #4 

BEO  ISEH2 
LDX  T3D 

*  SCAN  CLOCK  TABLE 
LDX  #TMTB 

LDA  B  #5 
JSH  SCAT 

*  UPDATE  DISPLAYS 
LDX  #OISUUF 

JSH  SD1S 
RTI 

*  TEST  TIMERS 
ISER2  BIT  A  #2 

BEO  ISER 3 

*  FIX  RETURN  VIA  VECT0H2 
LDX  T2D 

*  TEST  IF  NAIT  TIMER  INT 
TST  UBJ 

HEQ  ISER  1 4 
INC  NAITF 

*  TEST  IF  AGLS  BUSY 
TST  HAG 

BNE  ISER 1 7 
TST  RAC 
BNE  ISER  I  7 
CLR  NAITF 

*  SET  NAIT  RESPONSE 
J SR  «AIT 

I  SERI  7  RTI 
I  SERI  4  JSR  FRET2 
JSH  CLH2 
RTI 

ISER 3  BIT  A  #1 
BNE  1SEH4 
RTI 


*  FIX  RETURN  VIA  VECTOR  #1 
1SER4  JSR  FRETI 

JSR  CLR  I 
RTI 

• 

*  TEST  COMM  INTERRUPT 
I  SERI  TST  COMS 

BPL  ISER5 

*  COMM  POLL 
JSR  CPOLL 


*  TEST  AGLS  COMM 
I  SERB  TST  AGS 

BPL  ISER6 

*  TEST  RECEIVE 
LDA  A  AGS 
BIT  A  #1 

BEO  ISER7 

*  PROCESS  RECEIVE 
JSR  AREC 

RTI 

*  PROCESS  TRANSMIT 
ISER 7  BIT  A  #2 

BNE  I SERB 

*  TEST  DCD  INT. 

BIT  A  #4 

BEO  ISEHIS 

*  MAS  I  READING? 

TST  HAG 

BEO  ISER 1 6 
JSH  RAGL 
LDA  A  AGH 
RTI 

*  MAS  I  UNITING? 

I  SERI  6  TST  MAG 

BEO  ISER IB 
JSH  MAGL 
LDA  A  AGR 
RTI 

*  RESET  INT 

I  SERI  5  LDA  A  AGR 
RTI 

*  PROCESS  TRANS MT 
I  SERB  JSR  AXMT 

RTI 

* 

*  TEST  STANDBY  SNITCH 
I  SERB  TST  PIA2CA 

BPL  ISER 1 3 

*  SET  DISCONNECT  FLAG 
I.DA  A  #1 

STA  A  ZRFD 
LDA  A  PIA2DA 
RTI 

*  TEST  CRT  BUSY  LOCKOUT 
I  SERI  3  TST  CBSY 

BEO  ISEH9 
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*  RESET  1NT. 

I  SERI  0  LUA  A  TPR 
RTI 

*  TEST  CRT  INT. 

ISER9  TST  TPS 

BPL  ISER10 

*  TEST  RECEIVE 
I  .DA  A  TPS 
SIT  A  #1 

BEO  ISERII 

*  SERVICE  RECEIVE 
JSR  TPREC 

RTI 

*  TEST  TRANSMIT 
ISErtli  BIT  A  #2 

BNE  ISEKI2 

*  RESET  INT. 

LUA  A  TPR 
RTI 

*  SERVICE  TRANSMIT 
1  SERI  2  JSR  TPXMT 

RTI 


*  SCAN  TIMER  TABLE 

* 

SCAT  TST  0,X 
BEO  RT 

i.da  a  2.x 

SUB  A  O.X 
STA  A  2.x 
BNE  RT 
TST  I  ,  X 
BEO  ST 3 
DEC  |,X 
BRA  RT 
ST3  CLR  O.X 
«T  INX 
INX 
INX 
DEC  B 
BNE  SCAT 
RTS 

* 

*  CLEAR  TIMERS 

* 

-ITM  LUA  B  #15 
LUX  #TMTB 
JLTI  CLR  U.X 
INX 
DEC  B 
BNE  CLTI 
RTS 

* 

•  FIX  RETURN  VECTOR  #2 

4- 

fRET2  I.DX  I  SAVES 
LUA  A  VEC T2 
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LDA  B  VECT2* I 
STA  A  6.X 

sta  a  7,x 

RTS 

* 

*  FIX  RETURN  VECTOR  #| 

* 

FRETI  LDX  ISAVES 
l.DA  A  VECTJ 
LDA  B  Ve'CTI*I 
STA  A  6.X 
STA  B  7.X 
RTS 

• 

*  AGLS  RECEIVE 

* 

AREC  EOU  * 

*  VERIFY  MODE? 

TST  VERF 

BEO  AREC2 

*  GET  CHAR 
LDX  #AGC 
JSR  AOI 
BCC  AH EC 3 

*  SKIP  CHLF 
JSR  TCRLF 
BCC  AH  ECS 
RTS 

*  -X? 

AREC5  CMP  A  #'X 
BEO  AREC3 

*  DATA  OK 
CLR  VERF 
BRA  AREC4 

*  BAD  XMISSION,  DC)  AGAIN 
AREC3  CLR  RAG 

LDA  A  #N IE 
STA  A  AGC 
RTS 

*  RECEIVE  DATA  MODE 
AREC2  LDX  #AGC 

JSR  AOI 
BCC  AREC3 
CMP  A  #y  X 
BEO  AREC3 

*  SKIP  CH/LF 
JSR  TCRLF 
BCC  AHEC4 
RTS 

AREC4  LUX  APTR 
SUB  A  #S30 
STA  A  O.X 
INX 

STX  APTR 
CPX  #AGFE 
BEO  ARECl 

*  TEST  STATUS 
LUA  A  AGS 


F  *3 
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ANO  A  #X0 1  1 1  0000 

BNE  AH  EC 3 

RTS 

ARECI  CLR  CBSY 
CLR  RAG 

*  INHIBIT  INTERRUPT 
LDA  A  #N  IE 

ST  A  A  AGC 
RTS 

* 

*  INPUT  FROM  ACIA 

* 

AO  I  I.DA  A  O.X 
BIT  A  #1 
BEO  AO  1 1 
LDA  A  I  ,X 
SEC 
RTS 

AOI  I  CLC 
RTS 

*  TEST  CR/LF 

• 

TCHLF  CMP  A  #SOD 
BNE  TORI 
SEC 
RTS 

« 

TCR I  CMP  A  #SOA 
BEO  TCRB 

a.c 

RTS 

* 

TCRB  SEC 
RTS 

* 

*  AGLS  TRANSMIT 

* 

AXMT  CLR  VERF 
LDX  APTH 
LDA  A  O.X 
Ann  a  #$30 
INX 

STX  APTR 
LDX  #AGC 
JSR  A 00 
BCC  AXMT I 
LDX  APTH 
OPX  #ACTE 
BEO  AXMT I 
RTS 

AXMT  I  CLR  CBSY 
CLR  RAG 
INC  VERF 

*  INHIBIT  INTERRUPT 
LDA  A  #NIE 
ST  A  A  AGC 
RTS 


*  TEST  PORT  TRANSMIT 
TPXMT  TST  ASP 

BEO  TPXMI 
DEC  ASP 

TPXM4  LDX  TPPTR 
CPX  TPPTE 
BEO  TPXM2 
LDA  A  O.X 
INX 

STX  TPPTR 
TST  SPC 
BEO  TPXM3 
ADD  A' #5  30 
TPXM3  LDX  #TPC 
JSR  A 00 
RTS 

*  FIX  SPACE 
TPXMI  LDA  A  SPC 
. BEO  TPXM4 

ST  A  A  ASP 
LDA  A  #$20 
BRA  TPXM3 

*  LAST  CHAR— I NH  XMT  /ENB  RECV 
TPXM2  LDA  A  #HIE 

STA  A  TPC 
LDA  A  TPH 
RTS 

* 

*  TEST  PORT  RECEIVE 

* 

TPREC  LDX  #TPC 
JSR  CRl.F 
JSR  AOI 
BCC  TPHEI 
JSH  AOOI. 

*  -  H?  (RECV  BUFFER) 

TPREI  CMP  A  #'R 

BNE  TPRE2 
LDX  #IIBUF 
STX  TPPTR 
LDX  #HEND 
STX  TPPTE 
CLR  A 
BRA  TPHE3 

*  -  X?  IXMIT  BUFFER) 

TPRE2  CMP  A  #'X 

BNE  TPRE4 
LDX  #X  BUF 
STX  TPPTR 
LDX  #XEND 
STX  TPPTE 
CLR  A 
BRA  TPRE3 

*  -  A7  (AGLS  BUFFER) 

TPRE4  CMP  A  #'A 

BNE  TPRE5 
LDX  fAGLF 
STX  TPPTR 
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1.0X  #AGTE 
STX  TPPTE 
LUA  A  #5 
BRA  TPRE3 

*  «  F?  (FLAG  BUFFER) 

TPKES  CMP  A#'F 

BNE  TPHE6 
LUX  #f  LAG 
STX  TPPTR 
LDX  #FEND 
STX  TPPTE 
l.DA  A  #1 

*  SETUP  SPACE  COUNT 
1PRE3  STA  A  SPC  . 

ST  A  A  ASP 

*  OUTPUT  CR/LF 
I.DX  #TPC 

JSR  CHLF 

«  INH  mEC/ENB  XMIT 
l.DA  A  #X  IE 
STA  A  TPC 
1 PRE6  RTS 

* 

*  OUTPUT  TO  AC  I A 

* 

A(X)  PSH  A 
LDA  A  O.X 
BIT  A  #2 
PUI.  A 
uao  Atxn 
STA  A  l,X 
SEC 
PTS 

A(X)I  CLC 
RTS 

* 

*  CH/LF  ROUTINE 

* 

CWI.F  I -DA  A  #SD 
JSH  AOOL 
l.DA  A  MSA 
JSR  A(X)L 
RTS 

* 

*  l.(X)P  ON  OUTPUT 

* 

A  (X)L  JSR  AOO 
BCC  A(XH. 

RTS 

* 

*  TRANSFER  RE  CD  MESSAGE  Jo  CRT 

* 

XFRMSG  LUX  MHDATA 
STX  TPPTR 

*  FI  NO  END  OF  MESSAGE 
.\kMS I  l.DA  A  O.X 
CMP  A  #ETX 
BEO  XRMS2 


INX 

BRA  XRMSI 

*  FIX  END  ADDRESS 
XRMS2  STX  TPPTE 

CLR  SPC 
Q.R  ASP 

*  OUTPUT  CR/LF 
LDX  #TPC 

JSR  CRLF 

*  INH  REC/ENB  XMIT 
LDA  A  #X  IE  ■ 

STA  A  TPC 
RTS 

* 

*  SET  MAIT  TIMER 

* 

SHAIT  LDX  MWAIT 
STX  VECT2 
LDX  #( NT/2-1 ) 

JSR  SET 2 
CLR  UBJ 
INC  UBJ 
RTS 

* 

*  CLEAR  HAIT  TIMER 

• 

CNAIT  JSR  CLH2 
CLR  UBJ 
RTS 

* 

*  TRANSFER  RECEIVED  DATA 

* 

TRAN  EQU  * 

*  SET  HAIT  TIMER 
JSR  SMAIT 

*  STRIP  STATUS 
JSR  SI  3 

*  TEST  =1RE  ORDER 
CMP  A  #1 

BNE  TRAN  I 
JSR  PFO 
BRA  TKAN2 

*  TEST  CHECK  FIRE 
THAN I  CMP  A  #8 

BNE  TRAN 3 

*  PROCESS  CHECK  FIRE 
JSR  PCF 

BRA  THAN5 

*  ECHO-BACK  RECIEVED  DATA 

*  SETUP  DATA  MSG  HEADER 
TRAN2  LDA  B  #$40 

JSR  SDMH 

*  SETUP  DATA  MESSAGE 
JSH  SOM 

*  SETUP  DATA  MESSAGE  TRAILER 
JSR  SDMT 

*  CLEAR  rt AIT 
JSR  CrtAIT 
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*  TEST  FI  HE  COMMAND 
i'KAN3  CMP  A  *2 

BNE  TRAN4 
JSR  PFC 
BMA  THAN 5 

*  TEST  HEADY  REQUEST 
. HAN4  CMP  A  #4 

BNE  TRAN6 

(CD  ODD 

*  SEND  DATA  REPORT 

*  SETUP  OATA  MESSAGE  HEADER 
1  HANS  LDA  B  #S40 

JSR  SJMH 

*  SETUP  DATA  REPORT 
JSH  SOH 

»  SETUP  DATA  REPORT  TRAILER 
JSR  SORT 

*  CLEAR  WAIT 
JSR  CWAIT 
RTS 

*  CAN'T  DECODE  <NAK) 

TRAN6  JSH  CNAIT 

CLR  TMPX 
INC  HERR 
RTS 

* 

*  STRIP  STATUS 

* 

aTS  LDX  MflDATA 
LDA  B  #4 
CLR  HSMO 
STS2  LDA  A  0, X 
SUB  A  #$30 
EOR  A  HSMD 
STA  A  RSWD 
DEC  B 
BNE  STS I 
RTS 

STSI  INX 
ASL  RSWD 
BHA  STS2 

• 

*  RESET  STATUS 

• 

n STS  LDA  A  ASAD  FROM  PROC  ROUTINE  ACK 
COM  A 

STA  A  ASAD 

*  XFER  HI  XMIT  BUFF  EH 
LDX  #XDATA*3 
LDA  B  #4 
r-STS2  CLR  A 
ASH  ASaD 
BCC  HSTSI 
INC  A 

hSTSI  ADD  A  #$J0 
STA  A  0,X 
□EX 
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DEC  B 
BNE  RSTS2 
HTS 

• 

*  PROCESS  FIRE  ORDER 

* 

PFO  EQU  * 

*  STRIP  ASCII  ON  DATA 
LDA  B  #12 

LDX  #RDATA*4 
JSR  SASC 

*  TRANSFER  DEFLECTION  To  REF.  UNIT  F 
JSR  XRUP 

*  SET  TIMEOUT 
LDX  #30 

STX  TIMJ 
INC  TFI 

*  TEST  VALID  RUP  DATA  (CBI> 

1  PFo I  TST  PIA3CA 

I  BMI  PF02  DATA  VALID 

*  TEST  TIME  UP 
TST  TFI 

BNE  PFO I 

*  TIMEOUT  -  TRANSFER  DEFLECTION  TO  A 
JSR  TBA 

BRA  PFO 7 

*  READ  &  TRANSFER  RUP  DATA 
PF02  CLR  TFI 

JSR  RHUP 

*  TRANSFER  RECD  DATA 

*  BUFFER 

PFO 7  JSR  XRDB 

*  WRITE  DATA  TO  AGLS 
JSR  CO  MAGI. 

BCC  PFOB 

*  NAK  FUC 
JSH  CWAIT 
CLR  TMPX 
INC  REHR 
RTS 

*  OUTPUT  DATA  TO  FUZE  SETTER 
PFOB  JSR  OFD 

*  TURN  ON  HORN  A  LITE 
LDA  A  #GUACK  FO  LITE  ENB 
JSR  LEDON 

STATUS  JSR  HORN  IN 

*  WAIT  FOR  ACK 

PF03  LDA  A  #FoSM  FO  ACK  SW  MASK 
JSR  TSTSJI 
BCS  PF04 

*  TEST  RUP  UPDATE 
TST  TF3 

BNE  PF03 

* 

LDX  #10 
STX  TIMJ 
INC  TF3 

*  REQUEST  RUP  UPDATE 


I 

I 

I 

I 

I 

1 

I 

f 

I 

I 

I 

1 

1 

I 


1 

F  /  C  | 
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JSH  HEQHUP 
JSR  RRUP 
bra  PF03 

»  TOWN  OFF  HOfiN  &  LITE 
PF04  LJA  A  4GUACK  FO  LITE  DISAB 
JSH  I.EDOFF 
JSR  HORN  IF 

*  SET  ACK  STATUS  *OHD 
I.DA  A  4FOAM0 

STA  A  ASHD 
RTS 

* 

«  TRANSFER  TO  REF  UNIT  PROC. 

* 

<hUP  EQU  * 

*  MESSAGE  COUNT 
LUA  B  #4 

*  SEND  srx 

LDA  A  #1 
STA  A  0T3 
JSR  XRUX 

*  SEND  MtSSAGE 
LDX  #RUATA*4 

XR0P4  LDA  A  O.X 
ADD  A  #$30 
STA  A  0T3 
JSR  XRUX 
INX 
DEC  U 
BNE  XHUP4 
«  SEND  AGLS  MODE 
l.DA  A  AGFE-2 
ADD  A  #S30 
STA  A  Of 3 
JSH  XRUX 

*  SEND  ETX 
LUA  A  #3 
STA  A  0T3 
JSH  XRUX 

nrs 

* 

»  STROBE  AND  NA1T  DATA  ACCEPT 
* 

XRUX  EOU  * 

'  SENO  DATA  READY  (CB2) 

LDA  A  PIA3DB 
JSR  STH083 

»  WAIT  FOR  DATA  ACCEPTED  (CBI  ) 
AhUXI  rST  PIA3CB 
BPI.  XRUX  I 
RTS 

*  * 

*  REQUEST  RUP  DATA 
»  SEND  E0U<«6) 

» 

rEORUp  EQU  * 

-  SEND  srx 
LUA  A  #1 


STA  A  Oi'3 
JSR  XRUX 

*  SEND  ENQ 
LDA  A  #5 
STA  A  OT 3 
JSR  XRUX 

*  SEND  ETX 
LDA  A  #3 
STA  A  0T3 
JSR  XRUX 
RTS 

* 

*  TRANSFER  CHAR  STRING 

*  X-SOURCE.DEST-DESTINATION.B-CHAR  CNT 

* 

TCS  STX  SAVEX 
ICS  I  LDX  SAVEX 
I.DA  A  O.X 
INX 

srx  SAVEX 

* 

LDX  DEST 
STA  A  O.X 
INX 

STX  DEST 
DEC  B 
BNE  TCS1 
HIS 

• 

*  TRANSFER  DEFLECTION  TO  AGLS 

* 

.  TBA  LDX  #AGLT*5 
STX  DEST 
LDX  #HDATA*4 
LDA  B  #4 
JSR  TCS 
CLR  O.X 
RTS 

* 

*  SET  AGLS  STATUS  WORD 

*  O-NOHMAI. 

*  I  "BO 

*  2-BS 

*  3»BD  SET 

*  4-HO  CLR 

* 

A  STS  EOU  * 

*  READ  RUP  MODE 
CLR  B 

LDA  A  IN2 
COM  A 

AND  A  #% III 00000 
BNE  ASTSI 

*  TEST  BASE  DEFLECTION 
INC  B 

LDA  A  IN2 
COM  A 

BIT  A  #BDFM 
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dtO  ASTS2 

»  TEST  BASE-  DEF .  SET 
TST  PIA2CB 
BPL  ASTSI 
UM  A  P2A2DB 
INC  B 
INC  B  . 

BRA  ASTSI 

*  TEST  BORESIGHT 
ASTS2  INC  B 

BIT  A  #0STM 
BEO  ASTS3 

.  TEST  BASE  DEF  CLEAR 
TST  PIA2CB 
BPL  ASTSI 
LDA  A  PIA20B 
INC  B 
INC  U 

•SET  STATUS  NORU 
ASTSI  I.DX  #AGLT*IO 
STA  B  0,X 
A  ST  S3  RTS 

* 

«  READ  i  TRANSFER  RUP  UAf A 


RHUP  ECU  * 

*  TEST  DATA  REQ  <CAI) 
kRUPI  TST  PIA3CA 

BPL  RRUPI 

*  RECEIVE  DATA 
rtRUP2  LDA  A  IN3 

*  TEST  STX 
CMP  A  #1 
BNE  HR  UP  2 
LUA  B  #4 
I.DX  MAGLT+5 

*  SEND  DATA  ACCEPTED  <CA2> 
*RUP6  LDA  A  IN3 

JSR  STR0A3 

»  TEST  FOR  DATA  CALL  <CAI  ) 
HRUR4  TST  PIA3CA 
BPL  RRUP4 

*  GET  DATA 
HRUPS  ci.h  a 

LUA  A  IN3 
bEQ  HRUP5 

*  -  ETX 
CMP  A  #3 
BEO  HR UP 3 

*  GET  DATA 
SUB  A  #*30 

STA  A  0,X  ' 

INX 

DEC  B 

BNE  RRUP6 

*  SETUP  TO  GET  DISPLAY  DATA 
LDX  tJISBUF 

U.H  B 
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BRA  RRUP6 

*  SEND  DATA  ACCEPTED  (CA2  > 
RRUP3  JSR  STR0A3 

LDA  A  IN3 
RTS 

* 

♦^TRANSFER  RECD  DATA  BUFFER 
* 

XRDB  EOU  * 

*  XFER  ELEVATION  TO  AGLS 
LDX  #AGLT 

STX  DEST 
LDX  #RDATA*8 
LDA  B  #4 
JSR  res 
CLR  O.X 

*  SET  AGLS  MODE 
JSR  ASTS 

*  SETUP  DISPLAY  BUFFER 

*  DEFLECTION 
LDX  *OISBUF 
STX  DEST 
LDX  #AGLT*5 
I.DA  B  #4 
JSR  TCS 

*  ELEVATION, FUZE. CHARGE 
LDX  #0ISBUF*4 

STX  DEST 
LDX  #RDATA*8 
LDA  B  #2 
JSR  TCS 

* 

LDX  #DISBUF>8 
STX  DEST 
LDX  #RDATA*JO 
LDA  B  #6 
JSR  TCS 
RTS 

* 

*  WRITE  DATA  TO  AGLS 

• 

MAGL  JSR  ASTS 
CLR  CBSY 
INC  CBSY 

*  SEND  "H" 

LDA  A  #$20 
LDX  #AGC 
JSR  AOOL 
LDA  A  #*R 
JSR  AOOL 

*  INITIALIZE  POINTERS 
LDX  #AGLT 

STX  APTR 

*  SET  FUGS 
CLR  A 

STA  A  RAG 
INC  A 
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STA  A  "AC 

*  ENB  XMiT/lNH  WECV 


LDA  A  tt  IE 
STA  A  ACC 
IDA  A  AGH 
UTS 


LEDON  EQU  * 
LDX  #LEUUP 
JSH  LEDFIX 
rtTS 


1.EDOFF  EOU  * 
LUX  VLEODN 
JSH  LEDFIX 
RTS 


LEDUP  EOU  * 

TST  B 
BNE  LUPI 

ORA  A  LEUND 
STA  A  LEDND 
RTS 

LUPI  (IHA  A  LEDND*I 
STA  A  LtDND*! 

HTS 

• 

it 

LtUON  EOU  * 

TST  b 
BNE  LON I 

* 

COM  A 

ANU  A  LEUnQ 
STA  A  LEDND 
RTS 

* 

LON I  COM  A 
AND  A  LEDND*  I 
STA  A  LEON U*  I 
RTS 

* 

*  FIX  LED  NORU 

* 

LEDFIX  EQU  * 

CLR  B 
TST  A 
BMI  LON! 

*  LON  ORDER 
JSR  0,X 
RTS 

*  HI  ORDER 


LON  I  AND  A  #$/F 
INC  b 
JSR  O.X 
RTS 

* 

*  SERVICE  LEDS  (UATA-AODH) 

* 

SLED  EOU  * 

*  ENABLE  CHIP  SELECT  CB2  HI 
I  .DA  B  tXOOII  IIIO 

STA  B  PIA2CB 

* 

STX  SAVES 
LDA  B  #1 

*  OUTPUT  TO  LEDS 
LDA  A  SAVES 
AND  A  *$F0 

ABA 

STA  A  0T2 
JSR  STR0B2 

* 

LDA  B  #0 
ASI.  SAVES 
ASL  SAVES 
ASI.  SAVES 
ASL  SAVES 
LDA  A  SAVES 
ABA 

STA  A  0T2 
JSR  STR0B2 

* 

I  DA  B  #3 
LDA  A  SAVES* I 
AND  A  #*F0 
ABA 

STA  A  0T2 
JSH  STHOB2 

* 

LDA  B  #2 
ASL  SAVES* I 
ASL  SAVES* I 
ASL  SAVES* I 
ASL  SAVES*  I 
LDA  A  SAVES* I 
ABA 

STA  A  0T2 
JSR  STR0B2 
HTS 

• 

*  TEST  SNITCH  STATUS 

*  C-SET  IF  SN  ON l  C*)  IF  OFF 

* 

TSTSN  AND  A  IN2 
BEO  TSTSI 
CLC 
RTS 

TSTSI  SEC 
RTS 
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*  STROBE  OUTPUT  PULSE 

*  PI  A2A 

* 

STR0B2  LDA  A  #*00110101 
ST  A  A  PIA2CA 
NOP 

LDA  A  #*0011  1101 
ST  A  A  PIA2CA 
RTS 

* 

*  STROBE  OUTPUT  PULSE 

*  PIA3U 

* 

STK0B3  LDA  A  #*00110)00 
STA  A  PIA3CB 
NOP 

LUA  A  #X00 1 1 1 1  00 
STA  A  PIA3CB 
RTS 

* 

*  STROBE  OUTPUT  PULSE 

*  PIA3A 

STR0A3  LDA  A  #*00110100 
STA  A  PIA3CA 

nop 

LOA  A  #X00 1  III  00 
STA  A  PIA3CA 
RTS 

*  PROCESS  FIRE  COMMAND 

* 

PFC  EOU  * 

*  TURN  ON  FIRE  INDICATOR 
LUA  A  #FIRE  FIRE  LITE  ENB 
JSR  LEDON 

JSR  HORN  2N 

*  WAIT  FOR  ACK 

PFC I  LDA  A  #FASM  FC  ACK  SR  MASK 
JSR  TSTSN 
BCC  PFCI 

*  TURN  OFF  FIRE  INDICATOR 
LDA  A  #FIRE  FIRE  LITE  DIS 
JSR  LEUUFF 

JSR  H0HN2F 

*  SET  ACK  STATUS  NORU 
LUA  A  #FCANU 

STA  A  ASND 
RTS 


READ  AGLS  DATA 


RAGL  aR  CBSY 
INC  CBSY 
*  SEND  "TM 
LDA  A  #'T 
I.DX  #AGC 


JSR  AOOL 

a  INITIALIZE  POINTERS 
LDX  #AOLF 
STX  APTR 

*  SET  FUGS 
CLR  A 

STA  A  NAG 
INC  A 
STA  A  RAG 

*  ENB  RECV/INH  XMIT 
LDA  A  #R IE 

STA  A  AGC 
I.DA  A  AGH 
RTS 

*  TRANSFER  RECD  BUFFER  TO  XMIT 

XRX  LDX  #X0ATA*4 
STX  DEST 
LDX  #RDATA*4 
LDA  d  #12 
JSR  TCS 

*  ADO  ASCII  TO  DATA 
LDA  B  #12 

LDX  #XDATA«-4 
JSR  AASC 

pts 

*  TRANSFER  AGLS  ■'FROM'  TO  XMIT 

AOrX  LDX  #XDATA*I  5 
srx  DEST 
LDX  #AGLF 
LDA  B  #30 
JSR  TCS 
LDX  #X DATA *45 
STX  DEST 
U)X  #AG1-F«-4I 
LDA  B  #3 
JSR  res 

*  AUD  ASCII  TO  DATA 
LDA  B  #33 

LDX  #XDATA+I5 
JSR  AASC 

*  FIX  AGLS  ERR  SIGNS 
LDX  #XDATA«-25 

AGTX2  LDA  B  #S20 
LDA  A  0,X 
CMP  A  #S  31 
BNE  AGTX3 
LDA  B  #'- 
AGTX3  STA  8  O.X 

* 

CPX  #XDA1'A*25 
BEQ  AGTXI 


AGTX I  LDX  #XDATA«-40 
BRA  AGTX 2 
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RTS 

* 

•  STRIP  ASCII  FROM  CHARS 

* 

bASC  LUA  A  O.X 
SUB  A  4*30 
STA  A  O.X 
INX 
DtC  B 
BNE  SASC 
RTS 

* 

* 

*  ADO  ASCII  TO  CHARS 

* 

AASC  U)A  A  O.X 
ADO  A  4*30 
STA  A  O.X 
INX 
DEC  B 
BNE  AASC 
RTS 

* 

«  PROCESS  READY  REQUEST 
* 

PRR  EQU  * 

*  TURN  ON  READY  INDICATOR 
LDA  A  #REUY  READY  LITE  ENB 
JSR  I.EDON 

*  TEST  VE LOCI  METER  READY 
LUA  A  VLH 

I. DA  A  VLS 
BIT  A  44 
BNE  PRHI 
«  HEAD  DATA 
JSR  RVEL 

*  TEST  DATA 
JSR  TVEL 
BCC  PRR 

»  NAIT  FOR  ACK 

p  RR I  LDA  A  4RRSM  RR  ACK  SR  MASK 
JSR  TSTSw 
HCS  PRR2 

*  TEST  RUP  UPDATE 
TST  TF3 

BNE  PRHI 

* 

LUX  410 
STX  TIM3 
INC  TF3 

»  REQUEST  HUP  UPDATE 
JSR  REOHUP 
JSR  RRUP 
»  REAU  AGLS 
*  PRESENT? 

LDA  A  AOH 
LUA  A  AGS 
BIT  A  #4 


BNE  PRR I 

★ 

JSR  RAGL 
PRR4  TST  RAG 
BNE  PRR4 

*  TEST  AUTO  UPDATE 
LDA  A  AGFE-I 

CMP  A  42 
BCE  PRR3 

*  TEST  DEFERRED  NAIT 
TST  NAIl'F 

BEO  PRRI 
JSR  NAIT 
BRA  PRRI 

*  AUTO  UPDATE, XFER  NEN  DATA 
PRR 3  JSR  COMAGL 

*  TEST  DEFERRED  NAIT 
TST  NAITF 

BEQ  PRRI 
JSR  NAIT 
BRA  PRRI 

*  TURN  OFF  READY  INDICATOR 
PRR2  LDA  A  4REDY  READY  LITE  DIS 

JSR  LEDOFF 

*  SET  ACK  STATUS  HURD 
LDA  A  4RRAND 

STA  A  ASND 
RTS 

*  SETUP  DATA  MESSAGE 

* 

SUM  EQU  * 

*  TRANSFER  RECD  DATA  TO  XMIT 

JQU  VUV 

*  TRANSFER  STATUS 
JSR  RSTS 

RTS 

* 

*  SETUP  DATA  REPORT 

* 

SDH  EQU  * 

*  TEST  AGLS  PRESENT 
LDA  A  AGR 

LDA  A  AGS 
BIT  A  44 
BNE  SUM 2 
LDA  A  t'E 
STA  A  AGLF 

*  WAIT  TILL  NOT  BUSY 
SOM 3  TST  RAG 

BNE  SDM3 

*  REQUEST  AGLS  DATA  READ 
JSR  RAGL 

*  NAIT  COMPLETE 
SDMI  TST  RAG 

BNE  SDMI 

*  VERIFY  0000  READ 
LDA  A  AGLF 

CMP  A  t'E 
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UNE  SO M2 

*  PECO  NAK  FROM  AGLS-RECOVER 
JSH  COMAGL 

»  TRANSFER  STATUS 
SDM2  JSH  RSTS 

*  TRANSFER  AGLS  TO  XM1T 
JSR  AGTX 

*  TEST  VELOCI METER 

*  DCD  INDICATES 

* 

*  FILL  VEL  BUFFER 
JSR  FVEL 

*  TEST  FIRE  CMND  HESP 

*  SKIP  VEL  READ  IF- 
LJA  A  XOATA+2 

CMP  A  #$30 
HEO  SUMO 

* 

I  .DA  A  VLR 
LDA  A  VLS 
BIT  A  #4 
BNE  SOMA 

*  READ  VELOCI METER 
JSR  RVFI 

*  TRANSFER  VELOCITY 
SUM  A  JSR  XVEL 

*  HEAD  TEMPERATURE 
JSH  RTEMP 

RTS 

* 

*  SETUP  DATA  MSG  TRAILER 

• 

SUMT  LUX  *X0ArA-H6 
LDA  A  #ETX 
STA  A  0,X 
a.R  i.x 
RTS 

# 

*  SETUP  UATA  REPORT  TRAILER 

sort  lux  #x Data +48 

I.OA  A  #ETX 
STA  A  0,X 
CLH  I.X 
RTS 

* 

*  SETUP  PI  AS 

*  • 

*  HU  I -PROP  TENH 
Pi  AS  LUX  #PIAIUA 

I-DA  A  #S3A 
JSR  SETUP 

•  P I A2-0I SPLAYS  &  CONTROLS 
LDX  #PIA2DA 

LJA  a  #*3C 
JSR  SETUP 

w  SETUP  CAI  TO  INTERRUPT 
LOA  A  #11001  I  HOI 


STA  A  PIA2CA 

*  ZERO  DISPLAYS 
JSR  GDIS 

* 

*  PIAJ  -  REF  UNIT  PROC 

*  A- INPUT 

*  B-OUTPUT 

*  DE-GLITCH  CA2.CB2 
LDX  #PIA3DA 

LDA  A  #X00  1 1 1000 
STA  A  2.X 
STA  A  3.X 

*  A-INPUT 
CLR  O.X 

*  B-OUTPUT 
LDA  A  #$FF 
STA  A  I.X 

*  CONTROL 

LDA  A  #%00 1 1  1 1 00 
STA  A  2.X 
STA  A  3.X 

*  CLEAR  CAI.CBI 
LDA  A  O.X 

LDA  A  I.X 


*  TIMER 
LDA  A  #T3II 
STA  A  TCftl 3  • 

LDA  A  #T2I I 
STA  A  TCR2 
STA  A  0LDCR2 
LDA  A  #TI II 
STA  A  TCRJ3 

*LDXT#l2500  ,3  PEH,0U  (,0°  *SEC) 
JSR  SET 3 


*  COMM  AC  I A 
LDA  A  #*43 
STA  A  COMC 
LDA  A  #CNIE 
STA  A  COMC 

• 

*  AGLS  ACIA 
LDA  A  #3 
STA  A  AGC 
IDA  A  #NIE 
STA  A  AGC 

* 

*  TEST  PORT  ACI A 
LDA  A  #3 
STA  A  TPC 
LDA  A  #H  IE 
STA  A  TPC 


*  FUZE  SETTER  ACI  A 


Fa 
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LOA  A  #$43 
STA  A  FSC 
LDA  A  #NIE 
STA  A  FSC 
*  ^ —  _  __ 

«  VELOCIMETER  AC1A 
LDA  A  #3 
STA  A  VLC 
LDA  A  #*00001101 
STA  A  VLC 

*  DISABLE  INTERRUPTS 
SEI 

NOP 

RTS 

* 

»  SETUP  PI  AS 
* 

SETUP  CLH  2,X  CA  00  SELECT 
CLR  3, X  CB  DO  SELECT 
LDA  B  #$FF  B  SIDE-OUTPUT 
STA  B  l,X  B  SIDE  OUTPUT 
CLR  0,X  A  SIDE-INPUT 
STA  A  2,X  CA  OUPlfT  &  CONTROL  SELECT 
STA  A .  3,X  CB  OUTPUT  A  CONTROL  SELECT 
CLR  |,X  ZERO  OUTPUT 
LDA  A  0,X  RESET 
LDA  A  I,X  RESET 
RTS 

• 

*  INITIALIZE  CONNECT 

• 

ICON  EOU  * 

*  SELECT  MESSAGE  FLAG 
JSH  CLR I 

CLH  ZIDM 
DEC  ZIDM 

*  CLEAR  CONNECT  FLAG 
CLR  CONN 

*  TIMEOUT  RETURN  VECTOR 
LDX  # I CONX 

STX  VECT2 

*  TRANSMIT  BUFFER  POINTER 
LUX  #XBUF 

STX  BX I 

*  TEST  10  TRIES 
DEC  TRY 

3E0  ICON! 

RTS 

I  CONI  LDX  #* 

JMP  IDLE 

* 

*  CONNECT  PROCESS 

* 

CONP  EOU  * 

*  SET  PASS  FLAG 
CLR  XPASS 

DcC  XPASS 

*  START  CLOCK 


LDX  #<C0NTT/2-l ) 

JSH  SET2 

*  SET  FUG  CJ 
CLR  CJ 

INC  CJ 

*  ENB  XMIT/INH  HECV 
JSR  COMIR  . 

RTS 

* 

*  CONNECT  TEST 

• 

CONT  EOU  * 

*  TEST  ACK/NAK 

*  STOP  TIMER 
JSR  CLR2 
LDA  A  RJ 
CMP  A  #2 
BGE  CONTI 

*  NAK  IF  I  OR  0 
JMP  ICONX 

*  ACK  If  2  OR  3 
CONTI  INC  CONN 

*  TURN  ON  COMM/OFF  STANDBY 
LDA  A  #COMM 

JSR  LEDON 
LDA  A  #STBY 
JSR  LEDOFF 

*  FLAG  READY  FOR  RESPONSE 
CLR  ZRHF 

DEC  ZRRF 
JMP  XIT 


*  READ  VEIjOCIMETER 

• 

RVEL  EOU  * 

*  NAIT  ON  CHAR 
RVELI  LDX  #VLS 

JSH  AO I 
BCC  RVELI 

*  MAIT  ON  LEADING  LF 
CMP  A  #$0A 

BNE  RVELI 

*  GET  DATA 
LDX  #VaBUF 
STX  SAVEX 

RVEL2  LDX  #VLS 
JSR  AO I 
BCC  RVEL2 

*  STORE  CHAR 
LDX  SAVEX 
STA  10,1 
INX 

STX  SAVEX 

*  GET  OUT  ON  CR 
CMP  A  #$0D 
BNE  RVEL2 

RTS 
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*  TEST  VELOCl METER  FOR  0 

*  C*CU,  NOT  RESET 

*  C-SET,  RESET 

* 

1VEL  LUX  #VELBUF*2 
LDA  B  #5 
IVELI  LDA  A  O.X 
CMP  A  #$30 
BNE  TVEL2 
INX 
DEC  B 
BNE  TV  EL  I 
SEC 
RTS 

*r 

1VEL2  CLC 
RTS 

* 

*  TRANSFER  VELOCITY 
» 

XVEL  LUX  #XDATA-M 
STX  DEST 
LDX  #V  ELBUF#2 
LDA  B  #6 
JSR  TCS 
RTS 

* 

*  FILL  VELOCITY  BUFFER  <-S30> 

* 

rVEL  LDX  #V ELBUF 
LDA  B  #10 
LDA  A  #$30 
r VEI.I  STA  A  O.X 
INX 
DEC  B 
BNE  FVELI 
RTS 

* 

*  HEAD  TEMPERATURE 

* 

pTEMP  EQU  • 

*  SETUP  BUFFER  PTRS 
LDX  #XDATA#1 4 

CLR  a 

*  PUSH  A OCR  AND  READ 
p I'M!  srA  B  OTI 

LDA  A  INI 
AND  A  #SOF 
ADD  A  #$30 
STA  A  O.X 
DEX 
INC  d 
CMP  B  #S 
BNE  HTMI 

*  GET  POLARITY 
STA  B  Oi  l 

LdA  8  #'-  MINUS 


LDA  A  INI 
AND  A  #$0F 
CMP  A  #? 

BNE  RTM2 
LDA  0  ■+'*  PLUS 
RTM2  ST A  8  O.X 
RTS 

★ 

*  SERVICE  DISPLAY 

*  X -A DURESS  OF  BUFFER 

* 

SDIS  EQU  * 

*  LAMP  TEST? 

LDA  A  IN2 
AND  A  #$F0 
BEO  SDIS I  . 

*  CLEAR? 

CPX  #0 
BEO  SDIS2 

*  NORMAL  DISPLAY 
JSR  DIS 

LDX  LEDHD 
JSR  SLED 
RTS 

* 

*  LAMP  TEST 

SOI  SI  LDA  A  #$80 
LDX  #0 
JSR  DIS 

*  ALL  LEDS  ON 
LDX  #$FFFF 
JSR  SLED 
RTS 

* 

*  CLEAR 
SDIS2  LDX  #0 

CLR  A 
JSR  DIS 
RTS 

* 

*  DISPLAY  ROUTINE 

* 

*  X-ADUHESS 

* 

DIS  EOU  * 

*  DISABLE  CHIP  SELECT 
LDA  B  #%OOUOIIO  CB2  LO 
STA  B  PIA2CB 

* 

LDA  B  #16 
CLR  DISADU 

* 

DIS3  CPX  #0 
BEO  DISI 
LDA  A  O.X 
ASL  A 
ASL  A 
ASL  A 
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ASL 

A 

D  IS  I 

AND  A  #$F0 

EUR 

A  DISADD 

STA 

A  OT  2 

INC 

01 SADO 

PSH 

A 

JSR 

SrR0B2 

PUL 

A 

CPX 

#0 

BED 

I  NX 

DIS2 

niS2 

DEC  B 

UNfc 

RTS 

01S3 

*  CLEAH  DISPLAYS 

CuIS  LJX  #0 
JSR  SDIS 
LUX  #0 
JSR  SLED 
RTS 


*  OUTPUT  FUZE  DATA 
«  C  DODD  FFF  EEE  #1 

* 

uP'D  LUX  #HUAT/P»1!> 


RTS 

* 

SP  FCB  SFO 
GN  FCB  SF0.SF3.0I 
* 

*  TRANSMIT  FUZE  DATA 

* 

XFUZE  STX  SAVEX 
XFZI  LDX  SAVEX 
I.DA  A  O.X 

m  v 

STX  SAVEX 
ADD  A  #$30 
LDX  #FSC 

*  LOOP  OUTPUT 
JSR  A(H)L 
DEC  B 

BNE  XFZI 
RTS 

* 

*  SET  IDLE  LITE 

* 

I  DU.  LDA  A  ACOMM 
JSR  LEQOFF 
LDA  A  #STBY 
JSR  LEDON 
RTS 


LDA 

d  #1 

* 

JSR 

XFUZE 

*  DISCONNECT  COMM 

it 

★ 

LDX 

#SP 

DISCON  CLR  CONN 

LDA 

B  #1 

LDA  A  #1 

JSR 

XFUZE 

STA  A  IDLEF 

* 

RTS 

LUX 

#RDATA*4 

*  PROCESS  CHECK  F! 

LDA 

B  #4 

ftr 

JSR 

XFUZE 

PCF  EOU  * 

* 

*  DISPLAY  P'S 

LDX 

#SP 

PCF 6  LDA  A  #9 

LDA 

B  #1 

JSR  FIXDIS 

JSR 

XFUZE 

*  SOUND  HORN 

■m 

JSR  HORN  IN 

LDX 

#R0ATA*I2 

*  LIGHT  HEADY  ACK 

LDA 

a  #j 

LDA  A  #HEDY 

JSR 

XFUZE 

JSR  LEDON 

W 

*  TEST  READY  ACK 

LUX 

#SP 

LOA  A  #RRSM 

LuA 

a  #i 

JSR.  TSTSN 

JSR 

XFUZfc 

BCS  PCFI 

« 

*  WAIT  A  LITTLE 

LJX 

4RDATA+V 

LDX  #0 

I.JA 

B  #3 

PCF 2  DEX 

JSR 

XFUZE 

BNE  PCF2 

* 

*  DISPLAY  BLANK 

LDX 

#GN 

LDA  A  #SF 

LDA 

B  #3 

JSR  FIXDIS 

JSR 

XFUZE 

*  EXTINGUISH  H) HN 
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STA  A  PIAICB 
I.DA  A  OHORNOF 
STA  A  PIAICA 
HTS 

* 

*  HOHN  I  OFF  (CONT) 

« 

HORN  IF  EOU  * 

*  GET  PI A  CONTROL 
I.DA  A  #HORNOF 
STA  A  PIAICB 
STA  A  PIAICA 
RTS 

* 

*  HORN  2  ON  (PULSE) 

* 

HORN2N  EOU  * 

*  GET  PI A  CONTROL 
I.DA  A  4HORNON 
STA  A  PIAICB 
STA  A  PIAICA 
HTS 

» 

*  HORN  2  OFF  (PULSE) 

* 

HORN2P  EOU  * 

•  GET  PI  A.  CONTROL 
I.DA  A  #HO HNOF 
STA  A  PIAICA 
STA  A  PIAICB 
RTS 

* 

*  CLEAk  COMM  STATUS  LEDS 

* 

C1.HI.0I  IDA  A  #CI.EDO 
JSR  LEDOFF 

I. DA  A  #C1.EDI 
JSR  LEDOFF 
RTS 

* 

C1.RL02  LDA  A  #CLED0 
JSR  LEDOFF 

J. DA  A  #CLED2 
JSR  LEDOFF 
RTS 

* 

Ct.HLI  2  IDA  A  NCLEDI 
JSR  LEDOFF 
LDA  A  #CLED2 
JSR  LEDOFF 
RTS 

♦  * 

*  COMMUNICATE  TO  AG1.S 

»  C-SET  ,HONT  TAKE  IT 

*  C-CI.R.XMISSlON  OK 

t 

..OMAGL  EOU  * 

*  TEST  AGLS  PRESENT  (DCD  LON) 


JSR  HORN  IF 

*  TEST  READY  ACK 
LDA  A  #RRSM 
JSR  TSTSH 

BCS  PCFI 

*  WAIT  A  LITrLE 
LUX  00 

PCF4  DEX 
BNE  PCF4 
BRA  PCF6 

* 

*  READY  ACK  RECIEVED 
PCFI  IDA  A  #REDY 

JSR  LEDOFF 

*  SHUT  OFF  HORN 
JSR  HOHN  IF 
LDA  A  #$F 

JSR  FIXDIS 

*  SETUP  ACK  HORD 
LDA  A  #CFAHD 
STA  A  ASND 

RTS 

* 

*  FIX  DISPLAY  BUFFER 

* 

FIXDIS  IDA  B  *14 
LDX  MDISBUF 
FXD I  STA  A  O.X 
INX 
DEC  B 
BNE  FXDI 
HTS 

• 

*  CLEAR  HEC  BUFFEH 

it 

*  X “START  A DDR 

* 

CLRB  CLR  O.X 
INX 

CPX  #HENL) 

BNE  CI.RB 
RTS 

• 

*  CLEAR  XMIT  BUFFER 

* 

*  X-START  A  DOR 

* 

CLXB  CLR  O.X 
INX 

CPX  4XENU 
BNE  CI.XB 
RTS 

* 

*  HORN  )  ON  (CONT) 

• 

HORNIN  EOU  * 

*  GET  PI  A  CONTROL 
LDA  A  fHORNON 
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LUA  A  AGH 
LUA  A  AGS 
BIT  A  #4 
BEO  COMAG5 
CLC 
UTS 

* 

C0MAG9  LUA  A  #CLED4 
JSH  LEDON 
LOA  B  #10 
ST  A  B  AGTHY 
COMAGI  JSH  HAGL 

*  nAIT  TILL  DONE 
C0MAG2  TST  MAC 

BNE  C0MAG2 

*  ECHO  BACK  TO  VERIFY 
JSH  HAGL 

*  AAIT  TILL  DONE 
COMAG3  TST  RAG 

BNE  CUMAG3 

*  OK  7 
TST  VEHF 
BEQ  UJMAG4 

*  COUNT  THYS 
DEC  AGTHY 
BNE  OOMAGJ 
LDA  A  4CLED4 
JSH  LEDOFF 
SEC 

HTS 

*  GOOU  RETUHN 
C0MAG4  I  .DA  A  4CI.ED4 

JSH  LEDOFF 

CLC 

HTS 

*  TEST  AGLS  PRESENT 

*  DCD  LON  I  NO. 

* 

<OTHEH  CLH  B 
LUX  #60000 
h UT2  LOA  A  AGH 
LOA  A  AGS 
BIT  A  #4 
BEO  HUT I 

*  FIRST  PASS  7 
CPX  #60000 
JEO  KUT3 

1ST  B 

BEO  RUTHER 
R  JT 3  CLH  B 
INC  B 
P/EX 

ONE  HUT2 
HTS 

* 

■<UTI  TST  B 
BNE  RUTHER 
DEX 


BNE  RUT2 
HTS 

* 

*  TEST  BASE  DEFI. 

* 

TBD  EQU  * 

LDX  fl.EDON 
LDA  A  #BDSET 
LDA  B  AGEE— I 
AND  B  #1 
BNE  TBOI 

*  TURN  OFF 
LDX  #LEDOFF 

*  TURN  ON 
TBD I  JSR  O.X 

RTS 

*  SYSTEM  VECTORS 
ORG  $FFF8 

FDB  ISER 
FDB  ISEH 
FDB  STRT 
FOB  PNRUP 
ENO 
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RUP  CONTROL  PROGRAM 
SOURCE  LISTING 


PACE  OOI  PRUP 


SAD 


PACE  002  >  ‘-’■.Ip 


SAI  I 


NAM  RUP 

*  REFERENCE  UNIT  PROCESSOR 

*  REVISED  3/2/79  1630 


*  PI  A  EQUATES 

*  PI  A  I -REF  UNIT  RECEIVER 


P IA IDA  EOU  SC200 
PIAIOd  EOU  Pi  Al  DA*  I 
PlAICA  EOU  PI A I  PA +2 
PIAICU  EOU  PIAIDA+3 

* 

*  PI A2-C0MM.  PROCESSOR 

*  A-OUTPUT 

*  B-INPUT 
PIA2DA  EOU  SC204 
PIA2UU  EOU  P I  A2  DA  +.1 
PIA2CA  EOU  PI A2DA *2 
PI  A2Cd  EOU  PI A2DA+3 

* 

*  PIA3— Sn  INPUTS/ TEST  OUTPUTS 

• 

*  A-INPUT 

*  U “OUTPUT 
PIA30A  EOU  SC208 
PIA30H  EOU  PIA3DA+I 
PIA3CA  EOU  PI A3DA+2 
P IA3CB  EOU  PIA3DA-+3 

* 

*  TIMER  EQUATES 

* 

TCRI3  EOU  $9800 
TSTS  EOU  $9801 
TCR2  EQU  $9801 
TID  EOU  $9802 
T2D  EQU  $9804 
T3D  EOU  $9806 
• 

*  TIMER  CONSTANTS 

* 

TUI  EQU  XOOOOOOOO  C-EXT.O-OFF 
THE  EQU  XO 1 000000 

• 

T2I I  EOU  XI 0000001  C-EXT.O-ON 
T2IE  EOU  XIIOOOOOI 
* 

T3II  EOU  XI  0000010  C-INT.O-ON  ,N0  PRE 
T3IE  EOU  XI 1000010 

* 

*  ACTA  EQUATES 

* 

TPC  EOU  $9808 
TPS  EOU  TPC 
TPX  EOU  TPC+I 


TPR  EOU  TPC+I 

*  AC  I A  CONSTANTS 

* 

X  I E  EOU  XOOIOIOOI 
R IE  EOU  XIOOOIOOI 
NIE  EOU  X 0000 I OOI 

* 

*  PIAJ  CONSTANTS 

* 

CLUE  EQU  I 
OLITE  EQU  2 
LUTE  EQU  4 
XLITE  EOU  8 
SOUT  EQU  $10 
LOUT  EOU  $20 
PACE 

*  PROCRAM  RAM 
ORC  $0 

* 

FUG  EOU  • 

LFLAG  RMB  I  LASER  PULSE 
L BLOCK  RMB  I  LASER  BLOCK 
LGONE  RMB  I  LASER  LOST 
CFI.AG  RMB  I  COMPUTE 
SFLAC  RMB  I  SOUTH  PULSE 
AUTOF  RMB  I  AUTO  RESPONSE 
INF  RMB  I  INPUT  FUG 
FEND  EOU  • 

* 

*  CONSTANTS 

# 

XPER  RMB  2  X  PULSE-L  PULSE  PERIOD 
XTIM  RMB  2  X  PULSE-X  PULSE  PERIOD 
MIL  RMB  2  COARSE  MILS  COUNT 
OUT  RMB  2  BINARY  OUTPUT  VALUE 
0LDM1L  RMB  2  2  PASS  SAVE  VALUE 
OUTX  RMB  2  BUFFER  PTR  (BINBCD) 

DEST  RMB  2  TRANSFER  CHAR  PTR 

SCNT  RMB  2  SOUTH  PULSE  COUNT  (TEST) 

LVAL  RMB  2  USER  PULSE  VALUE  (TEST) 

LCNT  RMB  2  LASER  PULSE  COUNT  (TEST) 

SAVES  RMB  2  STACK  SAVE 

A I  RMB  2  BCD  ADD 

A2  RMB  2  BCD  ADD 

RESULT  RMB  4  TEMP  CHAR  BUFFER 

SAVEX  RMB  2  X  REG  SAVE 

SIC  RMB  I  SIGN  OF  ADD 

0LDCR2  RMB  I  TIMER  2  CONTROL 

TPPTR  RMB  2  TP  CHAR  PTR 

TPPTE  RMB  2  TP  CHAR  END 

TBUF  RMB  5  CHAR  BUFFER 

SPC  RMB  I  SPACE  CNT 

ASP  RMB  I  ACTIVE  SPACE 

IMP  RMB  I  DON  TEMPORARY  STORAGE 

MSBY  RMB  I  DON  MS  BYTE 

LSBY  RMB  I  DON  LS  BYTE 

CENU  EOU  • 
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tttNO  RMB  2  END  BUFFER  (CLBF) 

* 

*  TIME*  TABLE 
»  COUNTED  #1 

i  MTB  equ  * 

* 

TMTI  EOU  * 

C5I  RMB  I  STATUS 
01  RMB  1  COUNTER  (DEC) 

CNT I  RMB  I  CYCLE 
CPI  HMB  I  LOOK-AHEAD 
CHI  RMS  I  HOLD  COUNT 
* 

i'MT2  EOU  * 

CS2  HMB  l  STATUS 
02  HMB  I  COUNTER  (DEC) 
i-NT2  HMB  I  CYCLE 
CP2  HMB  I  L(X)K-AHEAD 
0H2  HMB  I  HOLD  COUNT 
* 

TMT3  EQU  * 

0S3  HMB  I  STATUS 
03  RMB  I  COUNTER  (DEC) 

CNT 3  RMB  I  CYCLE 
0P3  HMB  I  L(X) K-AHEAD 
0H3  RMB  I  HOLD  COUNT 
* 

TEND  EQU  * 

*  REFERENCE  ANGLE  BUFFER 

* 

HEFBUF  HMB  4 

* 

*  COMM  PROC.  BUFFER 
« 

CMPOUT  EOU  * 

A l  HMB  4 
o IS  HMB  4 

* 

CMPIN  EQU  * 

DEFL  HMB  4 
A MODE  HMB  I 
BUFEND  EQU  * 

PACE 


*  REFERENCE  UNIT  PROCESSOH  PROGRAM 


UHG  SF800 
iTRT  EQU  * 

*  H— 10  DEBUG 
LDS  #S7F 

»  SETUP  PI  AS  AND  TIMERS 
SEI 

JSW  PI  AS 
JSH  TIMI 

*  CLEAR  FLAGS /CONSTANTS 
LUX  #CENO 


STX  BEND 
LUX  #FLAG 
JSH  CLBF 

*  CLEAR  TIMER  TABLE  AND  -INITIALIZE 
JSR  CLTI 

*  CLEAR  BUFFERS 
LDX  4BUFEND 
STX  BEND 

LDX  MREFBUF 
JSR  CLBF 

*  INITIAL  TEST  S  COUNT 
LDX  #(  160*2) 

STX  SC NT 

*  INITIAL  TEST  L  COUNT 
LDX  #120 

STX  LVAL 

*  ENABLE  TEST  MODE  7 
l.DA  A  PIA3DA 

BIT  A  #4 
BNE  LI  2 

*  ENABLE  TIMER  #2  INT  (3125  USEC) 
LDX  #(312/2-1  ) 

JSR  SET2 

*  ENABLE  INTERRUPTS 
LI 2  CLI 


*  PROGRAM  ACTIVE  LOOP 


LOOP  EQU  * 

* 

l.DA  B  #GL  I TE 
LDX  #PON 

*  LOCK  FLAG? 

IJ3A  A  PIAJDA 
BIT  A  #1 

BNE  LIO 

*  ACTIVE  COUNTER  7 
LUA  A  CSI 

ORA  A  CS2 
ORA  A  CS 3 
BEQ  LIO 
TST  LGONE 
BNE  LIO 
LDX  #P()FF 

*  CONTROL  “GACS"  LAMP 
LIO  TBA 

JSR  O.X 

*  IF  GLITE  OFF,  CFLAG-0 
LUA  A  PIA3DB 

BIT  A  #GI.ITE 
BEQ  LI  I 
LDA  A  #*0C 
JSH  PON 
CLR  CFLAG 

*  COMPUTE  FLAG  7 
Lit  TST  CFLAG 
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BNE  LU 
JMP  LJ 

•  PINO  MAX  LIKELY  VALUE 
1.14  l.DA  B  CH3 

LDA  A  CNi  J 
CMP  A  CNT2 
BGT  LI 

* 

LDA  B  CH2 
LDA  A  CNT2 

# 

LI  CMP  A  CNTI 

bgt  u 

LDA  B  CHI 
LDA  A  CNTI 

* 

L2  TST  A 
BEG  ERR 
CLP  MIL 
LDA  A  #159 
SBA 

ST A  A  MIL# I 

•  TEST  COARSE  RANGE 
CMP  A  #159 

BHI  ERR 

* 

*  COMPUTE*  (>UT-40*MIL#40(  XPER/XTIM) 

* 

*  COMPUTE*  MIL-MI L*40 
LDX  #MII. 

JSR  MUX40 
STA  A  MIL 
STA  B  MIL# I 

*  FETUI  XTIM  AND  TEST  LIMITS 
LDA  A  XTIM 

*  TEST  RANGE  (<IIOX) 

CMP  A  #2 

BL1'  E2 
BGT  ERR 

* 

LDA  A  XTIM#I 

* 

CMP  A  #$AF 
BGT  ERR 

*  COMPUTE*  XPER-XPER-40 
E2  LDX  #XPER 

JSR  MUX40 
STA  A  XPER 
STA  B  XPER-#! 

*  COMPUTE*  A,B-XPERIA,B)/XTIM 
LDX  #XTIM 

JSR  DIVIO 

*  COMPUTE*  OUT-MI L#A,B 
ADD  8  MI L#.l 

ADC  A  MIL 

*  ADJUST  FOR  GACS 
SUB  B  #82 

SBC  A  #0 


*  Tear  HOU.OVEN 
BPL  LI  3 

*  FIX  ROLLOVER  (ADD  6400) 
ADO  A  #S  19 

LI  3  STA  A  OUT 
STA  B  OUT#. I 
-  TEST  RANGE  (0-6399) 

CMP  A  #*  18 
BGT  ERR 

*  MAKE  SURE  SAME  VALUE  2X 
LDX  OUT 

CPX  OLDMIL 
BEQ  LI  9 
STX  OLDMIL 
BRA  ERR 

*  CONVERT  OUT  TO  BCD 
I.IV  LDX  #REFBUF 

JSR  BINBCD 
ERR  CLR  CFLAG 

*  Lamp  test  i 

LJ  LDA  B  PIAJUB 
LI6  LUA  A  PIAJDA 
COM  A 

BIT  A  #(B0 
BEO  LIS 

*  TEST  UMPS 
LDA  A  #*0F 
JSH  POFF 
BRA  LI6 

*  RESTORE 

LIS  STA  B  PIA30B 

*  COMM  PROCESSOR  DATA  CALL  1 
LDA  A  PIA2CB 

BMI  L4 
JMP  L(K)P 

* 

*  DATA  CALL- ACQUIRE 

* 

L4  JSR  RCMP 
BCC  LI  7 
JMP  LOOP 

*  COMPUTE  AZIMUTH  IDEFL#REFl 
1.17  JSR  CAZ 

*  TEST  MODE  SNITCH 
LDA  A  PIA30A 

COM  A 
AND  A  #SFQ 
BNE  L5 

*  NORMAL 

*  COPY  AZ  TO  DISPLAY 
LDX  #OIS 

STX  DEST 
LDX  #AZ 
LDA  B  #4 

jsh  res 

LDX  #P()FF 
BRA  L6 
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.b  CMP  A  #*10 
BNE  L7 

»  BOWES  1GHT •  3200  TO  DEF1.  AND  DtS 
LDX  #AZ 
SIX  DEST 
l.DX  #CON  32 
LOA  B  #H 
JSR  TCS 
LDX  #PON 
B BA  L6 

f 

.7  CMP  A  #$20 
BNE  L8 

FDC,  COPY  FIRE  ORDER  TO  DISP 
LDX  #UIS 
STX  DEST 
LDX  #DEFL 
LOA  B  #4 
JSR  TCS 
LDX  #POFF 
BRA  L6 

B  CMP  A  #$30 
BNE  LIB 

BASE  OEFL,  COPY  COMPIN  TTl  aiMPoUT  AND  DISP 
LDX  #AZ 
STX  DEST 
LDX  #DEFL 
LOA  B  #4 

jsr  res 

LDX  #DEFL 
UM  B  #4 
JSR  TCS 
LDX  #POFF 
BRA  L6 

18  CMP  A  #$40 
BNE  L9 

REF,  COPY  REF  ANCLE  TO  OISP 
LUX  #OIS 
STX  DEST 
LDX  #REFBUF 
LOA  d  #4 
JSR  TCS 
LDX  #P()FF 
JR  A  L6 

CONTROL  “OPERATE*  LITE 
5  LOA  A  MOL I fE 
JSR  O.X 

OUTPUT  TO  COMM  PROC. 

7  JSR  SCMP 
•  JMP  LOOP 


M32  FCB  3 ,2 .0,0 ,3 ,2 ,0,0 

IN99  FCB  9, 9, 9,9 

'ACE 


*  INTERRUPT  SERVICE  ROUTINE 


I  SEW  EQU  * 

*  TEST  L  PULSE  (CAI  > 

TST  PIAICA 

BPI.  ISER7 

*  PROCESS  L  PULSE 
LUA  A  PI  AIDA 

*  TEST  FOR  MULTIPLE  L'S 
TST  L BLOCK 

BNE  ISER7 
INC  LSLOCK 
INC  LFLAG 
LDX  TIU 
STX  XPER 
COM  XPER 
COM  XPER#I 
CLR  CFUC 

*  SERVICE  LITE 
LDA  A  *LLITE 
JSR  ALTLIT 

*  TEST  X  OR  S  PULSE  (X*CBI  ) 
ISEW7  LUA  A  PIAICB 

BMI  ISERO 
JMP  ISEH6 

*  SERVICE  LITE 
ISERO  LUA  A  #XLITE 

JSR  ALTLIT 

*  PULSE  FOLLOWING  LASER  7 
TST  LFLAC 

HEO  ISERI 

*  READ  TIME  AND  RESET 
LDX  TIU 

STX  xriM 
COM  XTIM 
COM  XTIM* I 
CLR  CFUC 
INC  CFUC 

*  RESTART  TIMER 
ISERI  LDX  #*FFFF 

STX  TID 

*  PULSE  FOLLONING  SOUTH  7 
TST  SFWC 

RNF  ISFR2 

*  TEST  ANY  ACTIVE  L(X)PS  7 
LDA  A  CSI 

ORA  A  CS2  , 

ORA  A  CS3 
BNE  ISEW9 
CLR  CFLAG 
CLR  LFLAG 
LDA  A  PI  AIDS 
RTI 

*  UPDATE  X  PULSE  COUNTERS 
ISER9  LDX  #TMTI 

JSR  XPULSE 
LUX  #TMT2 
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JSH  XPULSE 
LDX  0TMTJ 
JSH  XPULSE 
OLH  LELAG 
LUA  A  PI  A I  OB 
HI  I 

south  pulse  processing 

SEH2  EOU  * 

ANY  I.  PULSES  THIS  PASS? 
CLH  LG0NE 
1ST  LBLOCK 
BHE  ISEH24 
CLH  CFLAG 
INC  LGONE 
5EH24  TST  CSI 
JEO  ISEH3 
TST  CPI 
JEQ  ISEH3 
MX  #r«TI 
JSH  XPULSE 
XH  SELAG 

:lh  lelag 

XH  LBLOCK 
-DA  A  PI  A I  Oil 
<T  I 

iEHJ  TST  CS2 
IEO  ISEH4 

:st  cp2 

IEO  ISEH4 
MX  #TMT2 
ISH  XPULSE 
:lh  SELAG 
■  LH  LELAG 
XH  LBLOCK 
•OA  A  PI  A I  OB 
.‘TI 

>EH4  TST  CS3 
IEO  ISER5 
ST  CP  3 
tQ  ISEH5 
OX  #T«T 3 
SH  XPULSE 
LH  SELAG 
LH  LELAG 
LH  LBLOCK 
OA  A  PI  A I  OB 

n 

TEST  WHICH  TO  START 
EHS  TST  CSI 
NE  ISEHSI 
OX  #TMTl 
SR  XPULSE 
LH  LBIDCK 
3A  A  PIAIDB 
TI 


ISfcRSI  TST  CS2 
BNE  ISEKB2 
LOX  #r«fi2 
JSH  XPULSE 
CLH  LBLOCK 
LDA  A  PIAIOB 
HI  I 

* 

ISEH52  TST  CSJ 
BNE  ISER5J 
LOX  #TMT3 
JSR  XPULSE 
CLH  LBLOCK 
LDA  A  PIAIOB 
HTI 

• 

I  SERB 3  CLH  CELAG 
JSH  CLTI 
CLH  LBLOCK 
LDA  A  PIAIOB 
HTI 

*  PROCESS  S  PULSE  <S«CB2> 
ISEH6  BIT  A  #*40 

BEO  ISERIO 

* 

CLH  SELAG 
INC  SELAG 
LDA  A  PIAIDB 
HTI 

*  TEST  OUTPUT  PHOCESSING 

• 

ISERIO  LDA  A  TSTS 
BPL  ISEH20 

*  X  PULSE  INTERRUPT  f 
BIT  A  #2 

BNE  ISERII 
LDX  TID 
LOX  T3D 
HTI 

*  TEST  S  PULSE 
ISERII  LOX  T20 

LDX  SCNT 
OEX 

STX  SCNr 
BNE  ISEHI4 

*  OUTPUT  S  PULSE 
LDA  A  #SOUT 
JSH  PULSE3 

*  RESET  COUNT 
LDX  #(  160*21 
STX  SCNT 
LOX  LVAL 

STX  I.CNT 
HTI 

*  000-EVEN  PASS 

I  SERI  4  I  .DA  A  SCNT*  I 
LSR  A 
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BCC  I  SEW  1 2 
WT! 

*  TEST  L  PULSE 

I  SEW  I  2  LUX  LCNT 
DEX 

STX  LCNT 
BEQ  ISERI3 
HTI 

*  OUTPUT  L  PULSE 

I  SERI  3  LUA  A  #LOUT 
JSH  PULSE 3 

*  STROBE  INT. 

HTI 

* 

*  CHT  PROCESSING 
1SEH20  TST  TPS 

BMI  I5EH2I 
HTI 

*  TEST  RECEIVE 
ISEW2I  LUA  A  TPS 

BIT  A  #1 
BEO  I SEW  22 

*  PROCESS  RECEIVE 
JSH  TPHEC 

HTI 

•TEST  TRANSMIT 
ISER22  BIT  A  #2 
BNE  ISEH23 

*  RESET  TP  INT. 

LDA  A  TPR 

RTI 

*  PROCESS  TRANSMIT 
ISER23  JSR  TPXMT 

RTI 


*  SUBROUTINES 


*  X  PULSE  PROCESSOR 

*  OFFSET 

*  ♦O-STATUS 

*  ♦I-UIUNT 

*  ♦2-CYCLE 

*  ♦3-I.OOK -AHEAD 

*  ♦4-H0L0 


X  PULSE  EOU  * 

*  TEST  STATUS 
TST  0,X 

BNE  XPI 

*  INACTIVE,  TEST  START 
TST  SFLAO 

BNE  XP2 

*  INACTIVE,  NO  START 
RTS 

*  START 


XP2  LDA  A  #  I  oO 
ST A  A  I ,X 
INC  O.X 
CLH  2,X 
CLR  SF LAG 
BRA  XP3 

*  ACTIVE,  DECREMENT  COUNI 
XPI  UEC  I.X 

XP3  CLH  3  ,X 

*  HOLO  DATA  ? 

TST  I.FLAG 
BEQ  XP7 

*  YES,  TRANSFER 
I.DA  A  I.X 

STA  A  4,X 

*  l.(K)K  AHEAD 
XP7  DEC  I  ,X 

BNE  XP4 
INC  3.X 
XP4  INC  I  ,X 

*  last  count  ? 

BEO  XP5 

*  NO 
RTS 

* 

*  PROCESS  LAST  COUNT 
XPS  TST  SFI.AG 

BNE  XP6 

*  NO,  SOUTH  RESET 
CLH  O.X 

CLR  2,X 
INC  3.X 
CLH  SFLAG 
RTS 

*  YES,  SOUTH  RESET 
XP6  INC  2  ,X 

LUA  A  2.X 
CMP  A  #8 
BEO  XPB 
LUA  A  #160 
STA  A  I.X 
RTS 

*  HOLD  COUNT  AT  7 
XP8  DEC  2,X 

LUA  A  #160 
STA  A  I.X 
RTS 
PAGE 

*  MULTIPLY  40  X  ROUTINE 

* 

*  X-ADORESS  OF  VALUE  ON  ENTRY 

*  A.B-ANS4ER 

* 

MUX 40  LDA  A  #2 
PSH  A 
LUA  A  O.X 
LUA  B  I.X 
PSH  B 
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PSH  A 
TSX 

• 

*  STACK 

*  *0-MSB 

*  ♦  I  -LS3 

*  ♦2-COUNT 

* 

*  MULTIPLY  A. 8  X  10 
ASL  l,X 

HOI.  O.X 

• 

LDA  a  I ,x 
LX) A  A  O.X 

* 

MUX4I  ASL  I .X 
HOI.  O.X 
DEC  2.X 
UNE  MJX4I 

* 

ADO  0  I  ,X 
ADC  A  O.X 

*  MULTIPLY  RESULT  X  4 
ASL  B 

HOL  A 
ASL  8 
HOL  A 

*  CLEAN  UP  STACK 
INS 

INS 
INS 
RTS  * 

*  BIN ArtY-BCD  CONVERSION 

*  X -ADDRESS  OF  RESULT (4) 

*  A.B-8INARY  VALUE 

* 

BINBCD  EOU  * 

STX  OUTX 

• 

LUX  ICONS 
JSR  TIZ 
LUX  ICONS* 2 
JSR  TIZ 
LDX  IC0NS*4 
JSR  TIZ 
LDX  OUTX 
STA  8  O.X 
RTS 

• 

CONS  FOB  1000,100,10 

* 

*  TEST  VALUE  DIVISIBLE 

• 

TIZ  PSH  B 
PSH  A 
IDA  A  O.X 
LDA  B  I.X 
PSH  B 


PSH  A 
CLR  A 
PSH  A 

* 

*  STACK 

*  *0 -COUNT 

*  -H-MS  CONST 

*  *2-LS  CONST 

*  *J«MS  VALUE 

*  *4— I.S  VALUE 

* 

TSX 

LDA  B  4.X 
LDA  A  3.X 
TIZ2  SUB  B  2.X 
SBC  A  I.X 

bcs  nzi 

INC  O.X 
BRA  TIZ2 

*  fail  subtract  .restore 

TIZI  ADD  B  2.X 
ADC  A  I.X 
STA  B  4.X 
STA  A  3.X 

*  RECOVER  COUNT 
LDA  A  O.X 

*  STORE  COUNT 
LDX  OUTX 

STA  A  O.X 

I||  V 

STX  OUTX 

*  RESTORE  STACK 
INS 

INS 
INS 
PUL  A 
PUL  B 
RTS 

* 

*  TIMER  INITIALIZATION 

• 

TIMI  LDA  A  IT3II 
STA  A  TCHI3 
LDA  A  IT2II 
STA  A  TCR2 
STA  A  0LDCR2 
LDA  A  Will 
STA  A  TCRI3 

•SETUP  TIMER  13  FOR  10  USEC  OUTPUT 
LDX  19 
STX  T3D 

*  SETUP  TIMER  II  FOR  COUNTDOWN 
LDX  ISFFFF 

STX  riu 
RTS 

* 

*  SETUP  TIMER  12  (INT) 
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SET2  LDA  A  #T2IE 
ST  A  A  0LDCR2 
I. DA  B  TSTS 

*  STORE  TIME  AND  START 
STX  T2U 
STA  A  TCH2 
RTS 


*  16  BIT  UNSIGNED  DIVIDE 

*  A.B  DIVIDED  BY  <X>  ,<X+I ) 

*  RESULT  IN  A.B 

If 

UIVI6  PSH  B 
PSH  A 
LDA  A  O.X 
I  .DA  8  I.X 
PSH  B 
PSH  A 
DES 
TSX 

LDA  A  #1 
TST  I.X 
BMI  01 VI  S3 
DIVI5I  INC  A 
ASL  2.X 
ROL  I.X 
BN  I  UI VI 53 
CMP  A  #17 
BNE  DIVI5I 
DIV 153  STA  A  O.X 
LDA  A  3.X 
LDA  B  4.X 
CLH  3.X 
CLR  4.X 

*  STACK 

*  ♦O-COdNT 

*  >I-NS  DIVISOR 

*  ♦2»LS  DIVISOR 

*  43-MS  DIVIDEND 

*  44-LS  DIVIDEND 

DIV  1 63  SUB  B  2.X 
SBC  A  I ,X 
BCC  D1VI65 
ADO  B  2.X 
ADC  A  I.X 

a.c 

BRA  DIVI67 
DIV 165  SEC 
0IVI67  ROL  4.X 
ROL  3.X 
LSR  I.X 
ROR  2.X 
DEC  O.X 
BNE  DIVI63 


*  CLEAN  UP  STACK 
INS 

INS 
INS 
PUL  A 
PUL  B 
RTS 

* 

*  READ  COMM  PROCESSOR 

* 

RCMP  EQU  * 

CLH  AUTOP 

*  TEST  DATA  HEOUEST  (CB1) 
RCM I  LDA  A  PIA2CB 

BPL  RCM  I 

*  RECEIVE  DATA 
RCM 2  LDA  A  PIA2DB 

*  TEST  STX 
CMP  A  #1 
BNE  PC MB 
LDX  #CMP  IN 

*  SEND  DATA  ACCEPTED  (CB2) 
RCM/  LDA  A  PIA2DB 

JSR  STR0B2 

*  TEST  DATA  REOUEST  (CBI) 
RCM 4  TST  PIA2CB 

BPL  RCM4 

*  GET  DATA 
RCM5  CLR  A 

LDA  A  PIA2UU 
BEO  RCM5 
CMP  A  #3 
BEO  RCM 3 

*  TEST  AUTO  FLAG  (ENO) 

CMP  A  #5 

BNE  RCM6 
INC  AUTOP 
BRA  RCM7 

*  DATA 

RCM6  SUB  A  #$30 
STA  A  O.X 
INX 

BRA  RCM7 

*  SEND  DATA  ACCEPTED  (CB2  ) 
RCM 3  JSR  STH0B2 

LDA  A  PIA2DB 

ac 

RTS 

RCM8  SEC 
RTS 

* 

*  OUTPUT  STROBE  PIA2CB 

* 

STR0B2  IDA  A  #*00110100 
STA  A  PIA2CB 
NOP 

LDA  A  #*00  1 1  1 1  00 
STA  A  PIA2CB 
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OUTPUT  STROBE  PIA2CA 

TROA2  LDA  A  #*00110100 

ST A  A  PIA2CA 

NOP 

LDA  A  #*00  111100 
STA  A  PIA2CA 
UTS 

TRANSFER  CHAR  STRING 

ues  r-ocsr  in  at  ion  .  x-source 

B-CHAH  CNT 

cs.  srx  savex 

CS1  LO-'  SAVEX 
1.0 A  A  O.X 

luU 

STX  SAVEX 

LDX  OEST 
STA  A  O.X 
INX 

STX  OEST 
DEC  B 
SHE  TCSI 
RTS 

COMPUTE  AZIMUTH 
•  AZ-0Ea*REF 


:  VZ  EQU  * 

t  FETCH  DEFECTION 
LDX  #OEFL 
STX  A I 

<  =ETCH  HEFEHENCfc 
LJX  #REFBUF 
STX  A2 

« 

LDX  #RESULT-*3 
JSR  BCD  A  DO 

*  ADJUST  FOR  ROLLOVER 
LDX  #AZ 
JSR  ADJ 
RTS 


* 

* 

* 


* 


ADO  2-4  DIGIT 
ai^address  of 

A2* ADDRESS  OF 


BCD  VALUES 
VALUE  J  MSB 
VALUE  2  MSB 


X-ADURESS  OF  SUM 


JCDADO  STX  SAVEX 
an  SIC 
*  FIX  A I 
LDX  Al 
JSR  FI  XX 
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STX  Al 

*  FIX  A 2 
LDX  A2 
JSR  FI XX 
STX  A2 
at 

*  GET  FIRST  VALUE 
LDA  B  #3 

BCAt  LDX  Al 
LDA  A  O.X 
DEX 
STX  Al 

*  ADD  SECOND 
LUX  A2 

ADC  A  O.X 
JSR  JOCK 
DEX 

STX  A2 

*  STORE  SUM 
LDX  SAVEX 
STA  A  O.X 
DEX 

STX  SAVEX 

* 

DEC  B 
BNE  BCAI 

• 

LDX  Al 
LDA  A  O.X 
LDX  A2 
ADC  A  O.X 
JSR  JOCK 
BCC  BCA2 
INC  SIG 

BCA2  LDX  SAVEX 
STA  A  O.X 
RTS 

*  FIX  VALUE  OF  X  13X> 

• 

FI XX  LDA  B  #3 
FIX  I  INX 
DEC  B 
BNE  FIXI 
RTS 

*  ADJUST  FOR  BCD  CARR V 

* 

JOCK  CMP  A  #9 
BGT  JOCK  I 
CLC 
RTS 

JOCK  I  ADD  A  #6 
AND  A  #*F 
SEC 
RTS 

«  ADJUST  FOR  ROLLOVER 
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1 

* 

SCM2  LDA  A  O.X 

ADJ  STX  SAVEX 

ADD  A  #$30 

rsr  sig 

STA  A  PIA2UA 

BNE  aoji 

JSH  XRUX 

*  TEST  FOB  >6400  ROLLOVER 

INX 

LDX  4RESULT 

DEC  0 

JSR  TEST64 

0NE  SC M2 

BCC  ADJ2 

*  SEND  ETX 

*  FIX  >  6400  ROLLOVER 

LDA  A  #3 

ADJ 1  LDX  4RESULT 

STA  A  PIA2DA 

STX  Al 

JSR  XRUX 

LDX  #C0N64 

LDA  A  PIA2DA 

STX  A2 

RTS 

LDX  SAVEX 

* 

JSH  FI  XX 

*  STROBE  AND  TEST  OUTPUT 

JSR  BCDADO 

* 

RTS 

XRUX  EOU  * 

*  FIX  <6400  VALUE 

*  OUTPUT  READY  TO  SEND  (CA2) 

ADJ 2  I.DX  SAVEX 

LDA  A  PI A2PA 

JSR  XFEH 

JSH  STR0A2 

RTS 

*  WAI  r  DATA  ACCEPTED  (CAI  ) 

* 

XRUX 1  TST  PIA2CA 

C0N64  FCB  3,6, 0.0 

BPL  XRUX) 

* 

RTS 

* 

* 

*  TEST  IF  >6400 

*  TEST  PULSE  ON 

* 

*  A-DATA  NORD 

TEST64  LDA  A  O.X 

* 

CMP  A  #6 

PON  OKA  A  PIAJDB 

BGT  T64I 

STA  A  PIA3DB 

BLT  T642 

RTS 

LOA  A  l,X 

* 

CMP  A  #4 

*  TEST  PULSE  OFF 

BGE  T64I 

*  A-DATA  WORD 

T642  CLC 

* 

RTS 

POFF  COM  A 

T64I  SEC 

AND  A  PIAJDB 

RTS 

STA  A  PIA3DB 

* 

RTS 

*  TRANSFER  ARRAY  FROM  -RESULT*  H)  (X) 

* 

* 

*  TEST  PULSE  STROBE 

XFER  STX  UEST 

# 

< 

LDX  4RESULT 

PULSES  PSH  A 

LDA  B  #4 

(IRA  A  PIA3DB 

JSR  TCS 

STA  A  PIA3DB 

RTS 

PUL  A 

* 

COM  A 

j 

*  OUTPUT  TO  COMM  PROCESSOR 

AND  A  PIAJDB 

* 

STA  A  PIA3DB 

SCMP  EOU  * 

RTS 

*  SET  MESSAGE  COUNT 

* 

1 

LDA  0  *0 

•  INITIAL  P IAS 

*  SEND  STX 

* 

1 

LDA  A  #1 

.MAS  EOU  * 

ST A  A  PIA2DA 

*  PIAI-A  INPUT, B  OUTPUT 

JSR  XRUX 

CLR  PI  Al  CA  SELECT  DD 

*  SEND  MESSAGE 

CLR  PIAICB  SELECT  OO 

LDX  MCMPOUT 

CLR  PI  AIDA  SET  A  INPUT 

j 

G/0 

PAGE  021  PRUP 


SAH 


PAGE  022  PRUP 


SA*  I 


LUA  A  #S  FF 

LDA  A  #3 

STA  A  PI  A 1  OB  SET  8  OUTPUT 

STA  A  TPC 

•  ENABLE  CAI  INTERN UPT  AND  CB2 

(INPUT) 

LUA  A  #RIE 

LDA  A  #*00000101 

STA  A  TPC 

STA  A  PIAICA 

RTS 

*  ENABLE  CBI  AND  CB2  INTERRUPT 

• 

I.DA  A  #*00001101 

•  CLEAR  BUFFER  ROUTINE 

STA  A  PIAICB 

# 

*  CLEAR  FUGS 

CLBF  CLH  O.X 

LDA  A  PI  AIDA 

1NX 

LOA  A  PI  A 1  OB 

CPX  BEND 

* 

BNE  CLBF 

*  PIA2-A  INPUT/OUTPUT  FOR  COMM 

PROC 

RTS 

*  AGOUTI- UT 

* 

*  B=INPUT 

*  CLEAR  AND  INITIAL  TIMERS 

*  SET  DD 

* 

LUX  #P I  A20A 

CLTI  LDX  #TENO 

CI.R  2.X 

STX  BEND 

CLH  3.X 

LDX  #TMTB 

*  INPUT-B 

JSR  CLBF 

CLR  I.X 

• 

*  OUTPUT-A 

LDA  A  #1 

LDA  A  #*FF 

STA  A  CPI 

STA  A  O.X 

STA  A  CP  2 

*  CONTROL 

STA  A  CP  3 

I.DA  A  #*00  1 1  1 1  00 

RTS 

STA  A  2.X 

* 

STA  A  3.X 

*  TEST  PORT  RECEIVE 

*  CLEAR  FLAGS 

* 

LOA  A  O.X 

TPREC  LUX  #TPC 

LDA  A  I.X 

JSR  CRLF 

* 

JSR  AO I 

*  PI  A3  SNITCH  /  OUTPUT 

BCC  TPREI 

* 

JSR  A(X)L 

I.OX  #P  I A  3D  A 

*  TEST  DATA  INPUT  ? 

*  SELECT  DO 

TPREI  TST  INF 

CLR  2.X 

BNE  TPRE7 

CLR  3.X 

*  »T  (TIMER  TABLE) 

*  AMNPUT 

CMP  A  #*T 

CLR  O.X 

BNE  TPHE2 

*  B-OUTPUT 

LDX  #TMTB 

LUA  A  #SFF 

STX  TPPTR 

STA  A  I.X 

LDX  #TENU 

«  CONTROLS 

STX  TPPTE 

LUA  A  #*36 

LUA  A  #5 

STA  A  2.X 

BRA  TPHE3 

STA  A  3.X 

*  “F  (FUG  BUFFER) 

*  RESETS 

TPRE2  CMP  A  #'F 

LUA  A  O.X 

BNE  TPHE4 

LDA  A  1  ,X 

LDX  #FLAC 

*  CLEAR  LAMPS 

STX  TPPTR 

LDA  A  #*0F 

LDX  #FEND 

JSR  PON 

STX  TPPTE 

• 

LDA  A  #1 

* 

BrtA  TPREJ 

*  SETUP  ACIA 

*  «U  (DATA  BUFFERS) 

*  ENABLE  RECV  INT. 

TPHE4  CMP  A-  #'D 

• 

BNE  TPRES 
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LDX  #REFUUF 
STX  TPPTH 
LDX  #BUFEND 
STX  TPPTE 
LDA  A  #4 
BHA  TPHE3 

»  «L  <L  VAL  ENTRY  > 
rP«E5  CMP  A  #*L 
BNE  TPRE6 

*  SET  INPUT  FLAG 
CLR  INF 

INC  INF 

*  SET  INPUT  POINTERS 
JSH  CLTB 

LDX  #TBUF 
STX  TPPTH 
LDX  #TBUF*4 
STX  TPPTE 
UTS 

«  GET  INPUT 
.  PHE7  LDX  TPPTH 

*  TEST  EOT 
STA  A  O.X 
CMP  A  #4 
BEO  TPHEU 
INX 

STX  TPPTH 
CPX  TPPTE 
BEO  TPHE8 
rffS 

*  LAST  CHAH 
IPHEB  CLH  INF 

JSH  DGN 
BUS  TPHE9 
STA  A  LVAL 
STA  B  LVAL+I 
1 PHE9  HTS 

* 

*  SETUP  SPACE  COUNT 
TPHE3  STA  A  SPC 

STA  A  ASP 

*  OUTPUT  CH/LF 
LUX  #TPC 

JSH  CHLF 

*  INH  HEC/ENB  XMIT 
LDA  A  #XIE 

STA  A  TPC 
. PHE6  LDA  A  TPH 
HTS 

* 

»  TEST  POHT  TRANSMIT 

n 

: PXMT  TST  ASP 
bEQ  TPXMI 
UtC  ASP 

.  PXM4  LDX  TPPTR 
LVX  TPPTE 
BEO  TPXM2 


LDA  A  O.X 
INX 

STX  TPPTH 
ADD  A  #$30 
TPXM3  LDX  #TPC 
JSH  A(X)L 
HTS 

*  FIX  SPACE 
TPXMI  LDA  A  SPC 

STA  A  ASP 
LDA  A  #$20 
BHA  TPXM3 

*  LAST  CHAH-INH  XMIT/ENB  RECV 
1PXM2  LDA  A  #KIE 

STA  A  TPC 
LDA  A  TPR 
RTS 

* 

*  EXEC  SUBROUTINES 


*  CLEAR  CHAH  BUFFER 

# 

CLTB  LDX  #T8UF 
LDA  B  #4 
LDA  A  #S20 

CLTB  I  STA  A  O.X 
INX 
DEC  B 
BNE  CLTB  I 
RTS 

* 

*  INPUT  FROM  AC I A 

* 

AOI  LDA  A  O.X 
BIT  A  #1 
BEO  AO 1 1 
LDA  A  I  .X 
SEC 
HTS 

AOI  I  CLC 
HTS 


*  OUTPUT  TO  ACIA 

• 

A 00  PSH  A 
LDA  A  O.X 
BIT  A  #2 
PUL  A 
BEO  AOO I 
STA  A  I.X 
SEC 
RTS 

AOO  I  CLC 
HTS 

* 

*  CH/LF  ROUTINE 


&/Z 
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CRI.F  I.DA  A  #SD 
JSR  AOOL 
I.DA  A  #$ A 
JSR  A(X)L 
RTS 

* 

*  LOOP  ON  OUTPUT 

* 

MX)L  JSR  AOO 
bCC  A(X)L 
RTS 

* 

»  CONVENT.  STRING  TO  DECIMAL  NO. 

*  STRING  IN  TBUF 

*  ON  RETURN  A-MSBY.B-LSBY 

* 

ijGN  LUX  #TBUE 
LUA  B  #4 
CLH  MS BY 
CLR  LSBY 

i.’GN2  LDA  A  0,X 
CMP  A  #420 
BNE  OGNI 
1NX 
DEC  B 
13NE  DGN2 

■ 

JGNE  SEC 
NTS 

» 

.ON  I  CMP  A  #4 
UEQ  DONE 
SUB  A  #*30 

BLT  jgne 

CMP  A  #9 

BGT  OGNE 
STA  A  LSBY 
INX 
DEC  B 
UEO  JGNE 
GN4  LDA  A  O.X 
CMP  A  #4 
BNE  0GN3 
I.DA  A  MSBY 
LDA  B  LSBY 
CI.C 
><rs 

GNJ  SUB  A  #*  JO 
W.T  DONE 
CMP  A  #9 
dGT  DONE 
STA  A  TMP 
JSR  Ml  OX 
INX 
DEC  B 
rffcQ  DONE 


BRA  UGN4 

* 

*  MULTIPLY  MSBY  .LSBY  X  10  ♦  TMP 

* 

Ml  OX  LDA  A  MSBY 
LDA  B  LSBY 
CLC 
ASL  B 
ROL  A 
ASL  B 
ROL  A 
ADO  B  LSBY 
ADC  A  #0 
ASL  B 
ROL  A 

* 

ADD  B  TMP 
ADC  A  #0 
STA  A  MSBY 
STA  B  LSBY 
RTS 

• 

*  ALTERNATE  LIGHT  (ON-OFF) 

• 

ALTLIT  EOR  A  PIA3DB 
STA  A  PIA3DB 
RTS 

*  SYSTEM  VECTORS 
ORG  $FFF8 
FDB  ISEH 
FDB  STRT 
FDB  ISEH 
FDB  STRT 
END 
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FDCOM  CONTROL  PROGRAM 
SOURCE  LISTING 
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F AGE  001  PFDOOM  .SAH 
NAM  FDCOM 

• 

*  AG1.S  COMMUNICATIONS 

*  FINE  DIRECUON  CENTEH 

*  REVISED  2/28/79  1500 

* 


I 


FLAGC  EQU 

• 

*  PIA  EOUATES 

*  F I A I » UNASSIGN ED 
FI  AIDA  EOU  SC200 
FIA1DB  EOU  P I  A.I  DA  *  I 
FIAICA  EOU  PI  A)  DA*2 
FIAICB  EOU  PI  Al  UA*3 
I  NI  EOU  F  I A  IDA 

OTI  EOU  PIAIDB 

* 

* 

«  P I A2- CONTROLS  AND  DISPLAYS 

*  A  SIUE-SN.  INPUTS 

*  8  SIDE »/.ED  OUTPUTS 

* 

PIA2DA  EOU  <C204 
FIA2DU  EOU  PIA2DA*I 
PIA2CA  EOU  PIA2DA*2 
PIA2CB  EOU  PIA2DA*3 
IN2  EOU  PIA20A 
0T2  EOU  PIA20U 
• 

•  PI A3- UN ASSIGNED 

• 

PIA30A  EOU  SC208 
FIA3U8  EOU  PI A3DA*I 
PIA3CA  EQU  PIA3UA*2 
FIA3CB  EOU  PI A3PA*3 
IN3  EOU  PIA3DB 
0T3  EOU  PIA3DB 
* 

*  PIA4-FDC  PUP  1 1/34 

*  A  SIDE-DATA  INPUT 

*  B  SIDE-DATA  OUTPUT 

* 

PIA4DA  EOU  SC20C 
PIA4DB  EOU  PI A4DA*I 
PIA4CA  EQU  PI  A4UA*2 
PIA4CB  EOU  PlA4DA*3 
IN4  EOU  PIA40A 
0T4  EOU  PIA4D8 
EOT  EQU  04 

*  * 

* 

*  LEO  MONOS  <PIA2> 

• 

CLEJ1  EOU  XOOOOOOOI  (STBY) 
U.ED2  EOU  *00000010  (COMM) 
CLEU3  EOU  XOOOOOIOO  <CJ«0> 
CI.E04  EOU  X 00 00 1 000  (CJ-3) 
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CLEU5  EQU  XOOOIOOOU  (PD  OUT) 

CLED6  EOU  XOOIOOOOO  (FO  IN) 

CLED7  EOU  XOI  000000  (CARRIER  UET . ) 
CLED8  EOU  XI 0000000  (NAK) 

• 

*  PERHIPERAL  EQUATES 

* 

•  COMM  AC I A 

COMC  EOU  SC  1 00 
COMS  EOU  COMC 
COMX  EOU  COMCX 
COMK  EQU  COMC* I 


*  TEST  PORT  ACIA 
TPC  EOU  S9B0B 
TPS  EOU  TPC 

TPX  EQU  TPC*  I 
l' PH  EQU  TPC* I 

* 

* 

*  TIMER 

TCRIJ  EOU  S9800 
TSTS  EQU  S9B0I 
TCH2  EOU  *9801 
TID  EOU  *9802 
T2D  EOU  *9804 
T3D  EOU  *9806 

*  TIMER  CONSTANTS 
TIIE  EQU  XOI 000000 
TUI  EQU  XOOOOOOOO 

* 

T2IE  EOU  XOI 00000 1 
T2II  EOU  XOOOOOOOI 

• 

T3IE  EOU  XIIOOOOII 
T3II  EOU  XI 000001 1 
* 

•  TIMEOUT  CONSTANTS  (.1  SECONDS) 
CONTT  EQU  0200  CONNECT  TRY 

CUD  EOU  0007  CARRIER  UP  DELAY 
COD  EOU  0005  CARRIER  ON  DELAY 
CUT  EOU  36000  CARRIER  DETECT 
MSGT  EQU  0600  MSG  BAIT  TIME 

•  COMM  EQUATES 

• 

SOH  EOU  I  START  OF  HEADER 

SMFC  EOU  *42  SERVICE  MSG  FORMAT  COOE 

I  MFC  EQU  *48  INFO.  MSG  FORMAT  COOE 

SLFC  EOU  *43  SELECT  MSG.  FORMAT  CODE 

CMFC  EOU  *44  CONTROL  MSG  FORMAT  CODE 

SC  EQU  *41  SEQUENCE  CODE 

AC  EOU  *40  ADDRESS  CODE 

IC  EQU  *40  IDENT  CODE 

STX  EQU  2  START  OF  TEXT 

ETX  EOU  3  END  OF  TEXT 

NOC  EOU  *40  NO  REO  OPERATION  CODE 


r  t 
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SMTY  EQU  *40  SERVICE  MSG.  TYPE 
Sl.TY  EQU  *42  SEI.ECT  MSG  TYPE 
DOC  EQU  *42  DATA  HEQ  OPER  CODE 
RROC  EQU  *46  READY  RESP.  OPER.  CODE 
AOC  EQU  *44  WAIT  OPER.  CODE 

*  ACIA  INTERRUPT  CONSTANTS 

X IE  EQU  *00101001  XMIT  I NT  ENB 
RIE  EOU  *10001001  RECV  1 N T  ENB 
N1E  EOU  *0000 1 001  I  NT.  OFF 

• 

* 

IFNE  FLAGC 

* 

*  COMM  INTERRUPT  CONSTANTS 
CNIE  EQU  XOIOOIOOI 
CH1E  EQU  X1IOOIOOI 
CXIE  EQU  *001 01 001 
HTS  EOU  *00001001 
ENOC 


IFEO  FLAGC 


CNIE  EQU  XOOOOIOOI 
CHIE  EOU  XI  0001  001 
CXIE  EOU  XOOIOIOOI 
RTS  EOU  XOOOOIOOI 

* 

ENOC 

PAGE 

OHG  *1000 

*  COMM  RECEIVE  BUFFER 
HBUF  HMB  60 

RENO  EQU  * 

ROATA  EQU  HBUF* 7 

*  COMM  TRANSMIT  BUFFER 
XBUF  RMB  60 

XENO  EQU  * 

XDATA  EOU  XBUF47 

* 

*  POP  .1 1  "FROM*  BUFFER 

* 

FDCF  EOU  * 

KEYS  HMB  3 
CODE  HMB  2 
DATA  RMB  17 
FDCFE  EOU  * 

* 

*  POP  II  "TO*  BUFFER 

• 

FDCT  EQU  * 

STAT  RMB  4 
MSG  RMB  45 
FOCTE  EOU  * 

* 

* 


PAGE  00"*  '"-DCOM  .SAM 

*  OLD  FIRE  ORDER  BUFFER 

* 

OLDFO  RMB  12 


X IDLE  RMB  2  IDLE  VECTOR  FLAG 


*  FLAGS 
FLAG  EQU  * 

ETXF  RMB  I  END  TEXT  FLAG 
CJ  RMB  I  COMM  STEERING 
ZRFO  HMB  I  REQ.  DISC.  FLAG 
ZIDM  RMB  I  ID  MESSAGE  FLAG 
XPASS  RMB  I  XMIT  FIRST  PASS 
RJ  RMB  I  RECD  DATA  FLAG 
kl.SC  RMB  I  LAST  RECD  SEQ  CODE 
ZHRF  RMB  I  READY  FOR  RbSP 
VDF  RMB  I  VALID  DATA  FLAG 
CONN  RMB  I  CONNECT  FUG 
FUCA  RMB  I  DATA  AVAIL  FLAG 
FDCC  RMB  I  FDC  DATA  CAU. 

OUTF  HMB  I  WRITE  FOC  GET  OUT 
PASS  RMB  I  HEAD  FDC  FIRST  PASS 
FII.I.F  HMB  I  FILL  CHAR  FLAG!  PXMT) 
CTSUBY  HMB  I  CLR  TO  SEND  UP  BUSY 
CTSOBY  RMB  I  CLR  TO  SEND  DN  BUSY 
TDCDBY  RMB  I  CARRIER  DET.  BUSr 
DISF  RMB  I  DISCONNECT  READY 
INF  RMB  J  CRT  INPUT  MODE 
ATORR  RMB  I  AUTO  READY  REOUEST 
ATOUH  RMB  I  AUTO  DATA  REOUEST 
INEF  RMB  I  INPUT  ERROR  (FDC) 
FIBSY  RMB  I  FOC  INPUT  BUSY 
FOBSY  RMB  I  FOC  OUTPUT  BUSY 
CFFF  RMB  I  CHECK  FIRE  PENDING 
FEND  EQU  * 

*  CONSTANTS 

BEND  RMB  2  BUFFER  END  POINTER 

*  BUFFER  POINTERS 
BRI  RMB  2  RECEIVE 
BXI  HMB  2  TRANSMIT 
XBCC  RMB  I  BCC  XMIT 
HBCC  RMB  I  BCC  RECEIVE 
REKR  RMB  I  RECV  ERROR  CODE 
RSTAT  RMB  I  RECV  STATUS  WORD 
TMPX  RMB  I  RJ  TEMP  INDEX 
KXFC  RMB  I  RECD  FORMAT  CODE 
RXOC  RMB  I  RECD  OPER  CODE 
Ol.DSC  RMB  I  SEQUENCE  CODE  SAVE 
SAVES  RMB  2  STACK  SAVE 
(SAVES  RMB  2  INT  STACK  SAVE 
SAVEX  RMB  2  X  REG  SAVE 

SAVA  RMB  I  SAVE  A  REG 
JAVB  HMB  I  SAVE  B  REG 
0I.DCR2  RMB  I  TIMER  CR#2  WORD 
VECTI  HMB  2  TIMER  INT  VECTOR  I 
VECT2  RMB  2  TIMER  INT  VECTOR  2 
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I 


\ 


i 
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TPPTH  RMB  2  TEST  PORT  POINTER 

fPPTE  RMB  2  TEST  PORT  END 

SPC  RMB  I  SPACE  COUNT 

ASP  RMB  I  SPACE  COUNT 

HSN0  RMB  I  RE CD  STATUS  WORD  (4CHAR) 

ASND  RMB  I  ACK  STATUS  WORD 

aAITC  RMB  I  WAIT  COUNTER 

IA8P  RMB  2  TABLE  POINTER 

OEST  RMB  2  CHAR  XFER  DEST INAION 

FPTR  RMB  2  FDC  ADDS  PTR  IRECV) 

HPTT  RMB  2  FDC  ADOR  PTR  (TRAN) 

CENL)  ECU  *-l 

*  INTERRUPT  DRIVEN  TIMERS  (100  MSEC) 


*  TIMER  TABLE  (DECREMENT) 
TMTH  EOU  * 

TP  I  RMS  ) 

IIMI  RMB  2 


TF2  RMB  I 
TIM2  RMB  2 


TP3  RMB  1 
T1M3  RMB  2 

• 

TF4  RMB  I 
TIMM  RMB  2 
• 

TFb  RMB  I 
TIM5  RMB  2 
PAGE 

*  AGI.S  FIRE  DIR.  CNTR.  PROCESSOR 

2  START  VECTOR  FOR  POWER  UP  OR  RESET 

• 

OHG  tFOOO 
STRT  EOU  * 

*  H-l  0  DEBUG 
LDS  #S7F 

*  COMM  IDLE  VECTOR 
IDLE  EQU  * 

STX  XIULE 

*  SETUP  PI AS 
JSH  PI  AS 

*  CLEAR  BUFFERS  , 

*  DATA  BUFFERS 
LUX  PFDCTE 
STX  BEND 

LDX  PRBUF 
JSH  CLBF 

*  FUG  BUFFER 
LDX  #FEND 
STX  BEN U 
LDX  #FUG 
JSR  CLBF 

*  CONSTANT  BUFFER 


1.0 X  #CEND 
STX  BEND 
LDX  »BRt 
JSH  CLBF 

*  CLEAR  TIMERS 
JSR  CLTM 

*  SEED  SEO.  CODE 
LDA  A  #SC 

ST  A  A  OLDSC 

*  ENABLE  INTERRUPTS 
CLI 


*  ENABLE  RECV.  INTERRUPTS 
IDLE!  LDA  A  #2 

STA  A  CJ 

*  CLEAR  TIMERS 
JSR  CLHI 

jSH  CLR2 

*  INITIAL  BUFFER  POINTER 
LDX  #RBUF 

STX  BRI 


CLR  COW 

*  TURN  ON  -STBY-.OFF  -COMM- 
LDA  A  PCLEDI 

JSR  LEDON 
LDA  A  MCLED2 
JSR  LEDOFF 

* 

JSR  a>MlX 

* 

*  SYSTEM  ACTIVE  LOOP 

* 

* 

LOOP  EOU  - 
LDA  A  PCLEDJ 
LDX  PLEDOFF 
TST  CJ 
BNE  L(K)PI 

*  TURN  ON  -CJ-O- 
LDX  PLEDON 

L(X)PI  JSR  O.X 
CPX  PLEDON 
BNE  LOOP 2 

*  FOC  DATA  CALL? 

TST  FDCC 

BEO  L(X)P2 

*  SETUP  XMIT  MSG. 

TST  INEF 

BNE  LOOP 
JSR  SETXMT 
TST  INEF 
BNE  LOOP 
CLR  FDCC 

*  TRUN  FDC  INT  BACK  ON  (LAI  > 
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LDA  A  #*00  11  1 1 01 
STA  A  P1A4CA 
JMP  XIT 

*  FQC  DATA  AVAILABLE? 
L00P2  TST  FDCA 

BEO  LOOPS 

*  TRANSFER  DATA  TO  FUC 
JSH  FDOUT 

L(X)P5  LDA  A  CJ 
CMP  A  #3 
BNE  LOOP 4 

*  TURN  ON  “CJ*3'“ 

LDA  A  #CLED4 
JSR  LEDON 

JMP  CJ 

*  DISCONNECT  PENDING? 
L(X)P4  tOU  • 

*  TURN  OFF  «CJ«J“ 

LDA  A  #CLED4 
JSR  LEDoFF 

TST  DISF 
BEO  L(K)P 

*  YES. BAIT  TILL  SENT 
I.DA  A  CJ 

CMP  A  #1 
BEO  LOOP 

* 

LDX  #* 

JMP  IDLE 
PACE 

*  SUBROUTINES 


*  CLEAR  BUFFER  ROUTINE 

#  X-  BUFFER  START 

•  BEND-BUFFER  END 


CLBF  CLR  O.X 
INX 

CPX  BEND 
BNE  CLBF 
RTS 

4 

•  PROCESS  TRANSMIT 

* 

PXMT  LDX  BXJ 
TST  FILLF 
BGT  PXM4 
BMI  PXMb 
LDA  A  O.X 
BEO  PXMI 
INX 

STX  BXI 
**S  OH? 

CMP  A  #SOH 
BNE  PXM2 
4  YES.  -SOH 


CLR  XBCC 
BRA  PXMJ 

*  -  DATA 
PXM2  TAB 

EOW  B  XBCC 
STA  B  XBCC 

*  TRANSMIT  CHAR 
JSR  XMIT 

PXM3  U.C 
RTS 

4  LAST  CHAR 
PXMI  LDA  A  XBCC 
JSR  XMIT 
INC  FILLF 
CLC 
RTS 

*  TRANSMIT  FILL  CHAR 
PXM4  LDA  A  #S20 

JSR  XMIT 
NEC  FILLF 
CLC 
RTS 

4  SECOND  TIME  AROUND 
PXMb  LDA  A  #*20 
JSR  XMIT 
CLR  FILLF 
LDX  #XBUF 
STX  BXI 
SEC 
RTS 

* 

4  PROCESS  RECEIVE 

4 

PHEC  JSR  RECV 
BCS  PRE6 

4  CLEAR  XMIT  FLAG 
CLC 
RTS 

PREO  LDX  BRI 
4  CHAR  -  BCC? 

INC  ETXF 
BEO  PREI 
4  NO,  -  DATA 
CLR  ETXF 
STA  A  O.X 
INX 

STX  BRI 

4  TEST  HECIEVE  STATUS 
JSR  JST5 

4  TEST  BUFFER  OVERRUN 
JSR  BOVR 

•  CHAR  >  SOH? 

CMP  A  #SOH 
BEO  PRE2 

*  CHAR  -  ETX? 

CMP  A  *ETX 
BNE  PREJ 
DEC  ETXF 
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PHE3  EOH  A  HBOC 
STA  A  HBOC 
CLC 
HTS 

*  FIHST  CHAR 
PRE2  CLH  HBCO 

CLH  HERR 
LOX  #RBUF 
STA  A  O.X 
I  MX 

STX  BHI 
INC  VL)F 
CLC 
HTS 

*  LAST  CHAR 
PREI  EOH  A  HBOC 

BNE  PRE4 
PRES  LJX  #RBUF 
STX  BMI 
CLH  Vi)F 
SEC 
RTS 

*  BCC  ERROR 
PRE4  LDA  A  #$10 

EOH  A  HERN 
STA  A  RE  HR 
BRA  PRES 

*  RECEIVE  CHAR  ROUTINE 

* 

HECV  LUA  A  CONS 
BIT  A  #1 
BNE  HECV  I 

•  NO  DATA  CALL 
I.OA  A  GO  MR 
CLC 

HTS 

*  DATA  CALL 
RECVI  STA  A  RSTAT 

*  REAL)  CHAR 
(.DA  A  CO  MR 
SEC 

RTS 

• 

*  TEST  RECEIVE  STATUS 

• 

JSTS  PSH  A 
LUA  A  RSTAT 

*  PARITY  ERROR? 

BIT  A  #*40 
BEQ  JSTS  I 

LUA  B  #*18 
EOH  B  HERR 
STA  B  RERR 

*  OVER  RUN  ERROR? 

JSTS I  BIT  A  #*20 

BEO  JSTS 2 
l.DA  B  #B 
EOR  B  RERR 


STA  B  RERH 

•  FRAMING  EHHOR 
JSTS2  BIT  A  #SI0 

BNE  JSTS 3 
PUL  A 
RTS 

JSTSJ  LUA  B  #$20 
EOH  d  RERR 
STA  B  RERR 
PUL  A 
HTS 

* 

•  TRANSMIT  CHAR. 

* 

XMIT  LUA  B  CONS 
BIT  B  #2 
BNE  XMIT I 

*  NO  DATA  CA1J. .  RESET  RECVR 
LDA  A  CO  MR 

HTS 

*  DATA  CAIJ. 

X M IT I  STA  A  CO MX 
RTS 

* 

*  INHIBIT  XMIT/ENB  RECV 

• 

COMIX  LUA  A  #CHIE  RECV  I NT  ENB 
STA  A  COMC 
LUA  A  COMR  RESET 
RTS 

* 

*  INHIBIT  COMM  INT 
COMOFF  LDA  A  #CNIE 

STA  A  U)MC 
LUA  A  COMR 
RTS 

* 

*  INHIBIT  MECV/ENB  XMIT 

* 

*  PREP  COMM 
COMIR  EQU  * 

*  MAKE  SURE  RECU  CAR  UN 
COM I 3  LDA  A  COMS 

BIT  A  #4 
BEO  CO  MI  3 
LDA  A  #HTS 

CTA  A 

*  N AIT  R1R  CARRIER  UP 
COM  1 1  JSR  CTSU 

BCC  CUMII 
LDA  A  #SOH 
COM 12  LOA  B  COMS 
BIT  B  #2 
BEO  COM I 2 
STA  A  CO MX 

LUA  A  #CX!E  XMIT  INT  ENABLE 

STA  A  COMC 

RTS 
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*  TEST  BUFF  EH  OVERRUN 

• 

BOVH  CPX  fHEND 
BED  BOVH  I 
HTS 

*  OVERRUN  HAS  OCCURRED 
BOVH J  LOA  B  #« 

EOH  B  HERR 
ST  A  B  HE  HR 
DEX 

STX  BN  I 
HTS 

*  COMMUNICATION  POU. 

* 

CPOLL  LOA  A  CJ 
CMP  A  #1 
BEO  CPOLI 
CMP  A  #2 
BEO  CPOL2 

*  RESET  INTERRUPT 
I  .DA  A  00  MH 

HTS 

*  TRANSMIT  LOOP 
CPOLI  EOU  *. 

*  FIRST  PASS? 

INC  XPASS 
BNE  CP0L6 

*  SETUP  MESSAGE  HEADERS 
CPOLI  I  JSH  SETUM 

*  SNAP  SEO.  COOES 
JSR  SSC 

*  PHCESS  TRANSMIT 
CP0L6  CLH  XPASS 

JSR  PXMT 
BCS  CPOI.S 
RTS 

*  SNITCH  TO  HECEIVE 
CPOLS  EOU  * 

*  CLEAR  HECEIVE  BUFF 
LUX  #HBUF 

JSR  CLRB 
LDX  #HBUF 
STX  Bttl 

*  SNITCH  a»MM  I NT 
JSH  COM IX 

LOA  A  #2 
ST  A  A  CJ 
HTS 

* 

*  RECEIVE  LOOP 
CP0L2  EOU  • 


IFNE  FLAGC 
*  TEST  CAHRIEH 
LOA  A  #CLE07 
JSR  LEU1FF 


JSR  TOCO 
BCS  CPOLIO 
LOA  A  COMH 
HTS 

* 

ENDC 

• 

*  PWOCESS  HECEIVE 
CPOLIO  LOA  A  MCLEDV 

JSH  LEUON 
JSR  PH EC 
BCS  CP0L7 
HTS 

*  SNITCH  TO  UNPACK 
CP0L7  LOA  A  #J 

ST  A  A  CJ 
JSH  COMOFF 
LOA  A  #CLhD7 
JSR  LEOOFF 
RTS 

* 

*  SfcTUP  MkSSAOE  ROUTINE 

• 

SETUM  EOU  * 

*  TEST  RFD  FLAG 
TST  ZHFU 

BEO  SETUM  I 

*  SETUP  RFD  SERVICE  MESSAGE 
LOA  B  #(44 

JSH  SSM 

*  TEST  I.D.  MESSSAGE 
SETUM  I  INC  ZIJM 

BNE  SETUM2 

*  SETUP  SELECT 
LOA  B  #(42 
JSR  SSIJI 

SETUM 2  CLH  ZION 

*  TEST  REAOV  FOR  RESPONSE 
INC  ZRRF 

BNE  SETUMJ 

*  SETUP  READY  FOH  RESPONSE 
LOA  B  #(46 

JSR  SIM 

*  SETUP  XMIT  POINTER 
SETUM 3  a.R  ZRRF 

LOX  #XBUF 
STX  BX4 
RTS 

* 

•  CARRIER  UP  DELAY 

# 

CTSU  EOU  * 

TST  CTSUBY 
BNE  CTSU I 

*  SETUP  TIMEOUT  VECTOR 
LOX  #CUD 
STX  TIM2 
INC  TF2 
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INC  CTSUBY 

*  TEST  CTS-UP 
CTSUI  rST  TF2 

BEO  CTSU2 

ac 

RTS 

*  INHIBIT  TIMER 
CTSU2  CLR  CTSUBY 

SEC 

RTS 

* 

•  CARRIER  LMMN  DELAY 

* 

CTSD  EOU  * 

TST  CTSUBY 
BNE  CTSUI 

*  SETUP  TIMEOUT  VECTOR 
LUX  #CU) 

STX  TIM2 
INC  TF2 
INC  CTSUBY 

*  TEST  CTS-OONN 
CTSUI  TST  TF2 

BEO  CTS02 

CLC 

RTS 

*  INHIBIT  TIMER 
CTSU2  CLR  CTSUBY 

SEC 

RTS 

* 

*  TEST  CARRIER  DETECT 

* 

TDCD  EOU  * 

TST  TOCOBY 
BNE  TUCU2 

*  SETUP  TIMEOUT  VECTOR 

*  TEST  MODE 
TST  CONN 
BEO  TDC03 

*  SETUP  MSG  TIMEOUT 
LUX  #XIT 

STX  VECTI 
LDX  #(MSGT/2-l ) 

BRA  TUCD4 
TDCD3  LDX  # IDLE  I 
STX  VECTI 
U)K  #* 

STX  XIOLE 
LDX  #(CDT/2-l ) 

TOC 04  JSR  SET I  CARRIER  DETECT  TIME 
INC  TUCUBY 

*  TEST  DCD  UP 
TDCD2  LDA  A  COMS 

BIT  A  #$4 
BEO  TDCD I 
LDA  A  CO  MR 

ac 


RTS 

*  INHIBIT  TIMER 
TDCD  I  JSR  CLR) 

CLR  TDCUBY 

SEC 

RTS 

* 

*  UNPACK  ROUTINE  ICJ-3) 

* 

C3  EOU  * 

*  TEST  ERROR  FLAG 
TST  RE  HR 

BNE  C36 

*  UNPACK  RECEIVED  DATA 
I.DX  4RBUF 

LDA  A  0,X  SOH 
ADO  A  6.X  STX 

*  SOH  ♦  STX  OK? 

CMP  A  #3 

BEO  C3I 

*  NO 

LDA  B  #$2B 
EON  B  RERH 
STA  d  RERR 
C36  JMP  RO 

*  TEST  STXM  (DATA/NO-OATA) 
C3I  CLR  B 

LDA  A  7.X 
CMP  A  03 
BEO  C32 
LDA  B  #4 
C32  STA  B  RJ 

*  TEST  OPEH.  CODE 
CLR  B 

LDA  A  4.X 

AND  A  #S  3b  MASK  ACK/NAK 
BNE  C33 
LDA  B  #2 
C33  EORB  RJ 

♦^EST  SEOUENCE  CODE 
LDA  A  2.X 
CMPA  RLSC 
BEO  C34 
LDA  B  #1 
EOH  B  RJ 
STA  B  RJ 
C34  STA  A  RLSC 

*  FIX  RJ  TO  INDEX 
LDA  A  RJ 

AND  A  #7 
STA  A  TMPX 

*  BRANCH  IF  DATA 
CMP  A  #4 

BLT  C35 
JSR  PUAT 

*  BRANCH  TO  PROCESS  ACK/NAK 
C35  LDA  B  TMPX 
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LDX  *HTBL 
J SR  FI  XX 
JMP  0,X 


c  ncoHUNSh  TABLE 
o"i“?  [JO--DATA  NAX  OLD-SC 
£{*'  "n-OATA  NAK  NEN-SC 
K)-DATA  ack  OLD- SC 

oJi*f  I i!yl0ATA  ACK  NEW-SC 
«J«4  data  nak  oi.d-sc 

«J«5  DATA  NAK  NEN-SC 
^*<5  CATA  ACK  OLD-SC 

wj«/  data  ack  nen-sc 


*  TABLE 

HTBL  JMP  HO  HI»0  NAK 
JMP  HO  I  NAK 
JMP  H2  2  ACK 
JMP  H2  3  ACK 
JMP  HO  4  NAK 
JMP  H5  5  PROCESS 
J**  g?  «  RESPOND  ONLY 
JMP  H5  7  PROCESS 


*  FIX  POINTER  BY  INDEX 
FIXX  TST  B 
BNE  FIXX) 

FI XX I  I NX 
INK 
INX 
DEC  d 
BNE  FI  XX I 
NTS 


*  PROCESS  DATA  MESSAGE 

POAT  LOX  «flBUF 
IDA  A  l,X 
CMP  A  #*44 
BNE  PD AT I 

■jsTm.S**06  «■ 

BTS 

Mrf\2  rjr*** 

CMP  A  #5 
BEO  PUAT2 
CMP  A  #7 
BEO  PDAT2 
*TS 

Jwn’jM'rSJJ'  F““  * 

RTS 


*  SETUP  XMIT  MESSAGE 
SETXMf  EQU  * 
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■"■I  ""I  i  WJUNT 

LDA  A  #10 
STA  A  NAITC 

*  DECODE  CODE 
JSH  DCOOE 

ace  setxi 

STA  B  ASND 

*  STATUS  DETERMINED 

*imT#S£4  mso  h£*otw 

JSH  SOMH 

M^sPtITaTUS  b,ts 

*l5aSI  xSatJSj  ohde*  <000<> 

CMP  A  #*3I 
BEQ  SETX2 

*  RECOVER  F.O.  DATA 
i-DX  YXDATA+4 

STX  OUST 
LOX  #OLDFO 
LDA  B  #12 
JSH  TCS 

*  tag  nith  trailer 

JSR  SDMT 
RTS 


VsFsSiP’  I"',LE“ 

*  tin, un,  “,u  to  ",,l°  •»* 

JSR  XFOCH 
RTS 

« 

•SPECIAL  MESSAGES 
SETXI  JSR  SSSM 
RTS 

* 

♦  CUO£  TABLE 

* 

tab  fcc  /fo/  fire  order 

FIRE-  COMMAND 
FCC  /RR/  READY  RESPONSE 
FCC  /CF/  CHECK  FIRE 
FIX  /DR/  DATA  REOUEST 
'EM'  END  OF  MISSION 
FCC  /MG/  MESSAGE 


*  DECODE  CODE 

* 

noone  eou  * 

LDX  #TAB 
STX  TABP 
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lda  b  #i 


DCOUE2  LUX  TABP 
LUX  O.X 
CPX  CODE 
BEO  DCODEI 


LDX  TABP 

INX 

INX 

STX  TABP 


ASl  B 

CMP  B  0S8O 
ONE  OCOOE2 

*  Tt|T  IP  ■“STATUS"  OJUE 
DO) DEI  CMP  B  #6 

BLfc  OcoOEJ 

CLC 

kTS 

* 


0CODE3  SEC 
HTS 


.  '  new  U AIM 

X*UAfA  DESTINATION  AUOH 


XFDCH  EOU  * 
STX  DtST 

*  DEFLECTION 
LDX  0OATA*3 
LDA  B  04 
JSR  TCS 

*  ELEVATION 
LUX  MU AT  A* 1 2 
LDA  B  #4 
JSR  TCS 

*  FUZE 

LDX  #0ATA*8 
LDA  B  §3 
JSH  TCS 

*  CHANGE 
LDX  ADATA+.I 
LDA  B  #| 

JSH  TCS 
RTS 


J  SETUP  SPECIAL  MESSAGES 

SSSM  EC1U  * 

*  DATA  REQUEST? 

CMP  B  #SJO 
ONE  SSSM I 

lda  b  #doc 

JSH  SIM 
HTS 


*  end  of  mission? 


PAGE  01 S  "RiOOM  .SAJI 


SSSMI  CMP  B  #$20 
BNt  SSSM 2 
CLH  ZHFU 
INC  ZKFD 
HTS 


*  CHT  message  (.control  becuhd) 

SSSM2  CMP  B  #$40 
BNE  SSSMS 

*.?wT!fP  C'(*NTRoL  record  header 
lda  B  #NOC 
JSH  SCHH 

*  FIND  end  OF  MESSAGE 
CLH  B 

LDX  #OATA 
SSSM4  LDA  A  O.X 
CMP  A  #EOT 
BEO  SSSM3 
INX 
INC  B 
SNA  SSSM4 

wSrl0  x,It 

stx  ucsr 

LDX  00  AT  A 

jsh  res 

*  SETUP  MSG  TRAILER 
U»A  A  #etx 
STA  A  O.X 
CLH  I.X 
RTS 

SSSM5  INC  INEF 
CLR  FOOD 
RTS 


|  *  SETUP  CONTROL  RECORD  HEADER 

5 CRH  LUX  #CRH 
JSR  XFEH 
RTS 

* 

CRH  FOB  SOH.CMFC.SC, AC, NOC, IC.STX ,0 

*  TRANSFER  data  from  rec  buffer 

*  TO  FDC  “TO"  BUFFER  au”t* 

TRAN  EQU  * 

*  STRIP  STATUS 
JSH  STS 

*  "FINE  ORDER  ACK? 

CMP  A  »%OOOOIIIO 
BHc  THAN  I 

*  YES, TRANSFER  TO 
JSR  XFDCT 

*  TEST  CHECK  FIRE 
TST  cfff 


FDC  "TtP*  BUFFER 
PENDING 
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JtQ  THAN3 

XFDCT2  LDX  #FDCT 

•<rs 

STX  DEST 

SETUP  DATA  MSG  HEADER 

LUX  #RDATA 

(AN3  LDA  B  #NOC 

JSR  TCS 

JSH  SUMH 

*  TAG  (lITH  EOT 

FIX  STATUS 

LDA  A  #EOT 

LDA  A  #4 

STA  A  O.X 

STA  A  ASNO 

*  SET  DATA  AVAIL  FLAG 

JSH  HSTS 

CLR  FUCA 

TRANSFER  F.O.  DATA 

INC  FDCA 

U>X  #XDATA*4 

RTS 

JSH  XFDCH 

• 

SETUP  DATA  .MSG  TRAILER 

*  TEST  CONNECT  SEQUENCE 

JSR  SDMT 

* 

SET  AUTO  RH  FUG 

COHT  EOU  * 

LLR  atorr 

*  READY  RESPONSE  FLAG  SET 

INC  ATORR 

INC  ZrRF 

liTS 

BEQ  CONT  I 

CLR  «£HHF 

*  HEADY  REG , CHECK  FIRE. FIRE  COMMAND.  DATA  REG 

ACK?  JMP  XITI 

UNI  EDO  * 

*  FLAG  SET.  CONNECT 

P1HE  COMMAND  ACK? 

CONTI  CIJ  CONN 

CLH  ATOUH 

INC  CONN 

CMP  A  #*00001101 

*  TURN  ON  "CONN"  LED. OFF  ‘ 

hne  Tran 2 

LDA  A  #CLEDI 

YES.  SETUP  OATA  REQUEST  FUG 

JSR  LEDOFF 

INC  ATOUH 

LDA  A  #CLED2 

TRANSFER  TO  FDC  "TO"  BUFFER 

JSR  LEDON 

JSH  XFDCT 

* 

SETUP  DR  MESSAGE 

CLR  CJ 

IDA  B  #DOC 

JMP  LOOP 

JSR  SIM 

* 

Hi'S 

*  ACK/NAK  PROCESSING,  RJ« 

TRANSFER  TO  FDC  -"TO"  BUFFER 

* 

KAN2  JSR  XFDCT 

RO  LDA  A  #CI.Ei)8 

GLR  ATORR 

JSR  LEDOFF 

CLR  ATOUH 

TST  RE  HR 

RTS 

BEO  RO  1 

i  *  SETUP  NAK  RESPONSE 

TRANSFER  FROM  RECV  BUFFER  TO  FDC  "TO"  BUFFER 

l  JSR  SNR 

LDA  A  #CLEDB 

FDCT  EOU  * 

•  JSR  LEUON 

CLEAR  FDC  BUFFER 

i  *  SNAP  SEQ  CODES 

I.JX  #FUCTE 

1  HOI  JSR  SSC 

STX  BEND 

* 

LDX  #FDCT 

* 

JSR  CLBF 

* 

•  rIND  ETX 

*  RESET  FOR  TRANSMIT 

CLR  B 

X  IT  EOU  * 

I.DX  fRUATA 

*  TEST  CONNECT 

FDCTI  I  .DA  A  O.X 

TST  COW 

CMP  A  #ETX 

BNE  XITI 

BEQ  XFDCT2 

JMP  CONT 

1NX 

XITI  LUA  A  #1 

INC  B 

STA  A  CJ 

GMP  B  #48 

LDA  A  #»FF 

:>LS  XFDCTI 

STA  A  XPASS 

•  TRANSFER  DATA 

CLR  ATORR 

J 10 
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CL ft  Arouft 

*  IN  CASE  W  AI T  RE-XMIT 
JSft  CLHI 

CLH  TOO)  BY 

*  ENB  XMIT/INH  KECV 
JSft  COMIR 

JMF  U)OF 


JMF  LOOF 

*  TOO  MANY  WAITS 

*  SET  ftFD 

ft 23  CLft  ZRFU 
INC  ZRFD 
JMF  XIT 


*  HJ  -  2.3 

ft 2  LOA  A  #CLEDB 
JSft  LEUOFF 
I.DX  #HBUF 

*  STRIP  FORMAT  CODE 
LDA  A  I.X 

ST A  A  RXFC 

*  STRIP  OPER  CODE 
LDA  A  4.X 

AND  A  #/ 

STA  A  RXOC 
**  TEST  SERVICE  MSG 
LDA  A  RXFC 
CMP  A  #SMFC 
BEQ  R24 

*  TEST  RANGE  OF  FORMAT  CODE 
BLS  H2ER 

CMP  A  #$4D 
BHI  H2ER 

*  TEST  OF EH  CODE 

*  NO  HEQ  0C7 
LDA  A  RXOC 
CMP  A  #0 
BNE  R2I 
an  CJ 

JMP  L(K)P 

*  TEST  IF  READY  RESPONSE 
R2I  CMP  A  #6 

BNE  ft 22 

*  READY  RESPONSE, SET  CONNECT  FLAG 
CLR  ZRRF 

DEC  ZRRF 
JMP  XIT 

*  TEST  IF  WAIT 
ft 22  CMP  A  #4 

BNE  R2ER 

*  PROCESS  WAIT 
JSR  FWAIT 
BCS  H23 

LDA  A  #2 
STA  A  a 

*  RESET  RECEIVE 
I.DX  4RBUF 

STX  UR  I 

*  CLEAR  BUFFER 
JSR  CLftU 

*  INIT  1NT 
JSR  COMIX 


*  PROCESS  SERVICE  MESSAGES 

*  SELECT? 

R  24  LDA  A  RXOC 
CMP  A  #$2 
BNE  R26 

*  SETUP  INFO  MSG 
R28  LDA  B  #$40 

JSR  SIM 
JMF  XIT 

*  REQUEST  FOR  DISCONNECT? 
R26  CMP  A  #$4 

BNE  R27 

*  SETUP  DISC  SVS  MSG 
LDA  B  #$46 

JSR  SSM 
CLR  DISK 
INC  DISF 
CLR  ZRFD 
JMP  XIT 

*  NO  INSTRUCTION? 

R27  CMP  A  #*0 

BNE  R2ER 

* 

CLR  CJ 
JMF  L(X>P 

•  ERROR  PROCESSOR 
R2ER  LDA  A  #$28 

STA  A  RERR 
JMP  RO 

* 

*  RJ  «  5.7 
RS  EQU  * 

R6  EOU  * 

LDA  A  #CLEDU 
JSR  LEUOFF 

*  AUTO  HR  FLAG  SET? 

TST  ATOHR 

BNE  RS2 

*  AUTO  Oft  FLAG  SET? 

TST  ATOUH 

BEO  R5I 

*  TEST  CHECK  FI  HE  PENDING 
R52  TST  CFFF 

BNE  R5I 
JMP  XIT 

*  WAIT  NEXT  MESSAGE 
H5I  CLR  CJ 

jmp  Loop 

*  SETUP  SERVICE  MESSAGE 
SSM  LDX  #SMH 

JSR  XFER 


I 


I 


I 

I  X  II 


1 


"V 


I 
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RTS 

SMH  FCd  SOH.SMFC.SC.AC.NOC.IC.STX.ETX.O 
* 

*  TRANSFER  DATA  FROM  STACK  ARRAY 

*  TO  X  ARRAY 
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ST A  A  O.X 
a.R  i.x 
RTS 

*  SETUP  SELECT  MESSAGE 


XFER  STX  SAVEX 
LDX  #XBUF 
STX  UEST 
XFER2  LDX  SAVEX 
1.0 A  A  O.X 
INX 

STX  SAVEX 

* 

LDX  DEST 
STA  A  O.X 
INX 

STX  UEST 
TST  A 
BNE  XFEH2 

•  CLEAR  REST  OF  BUFFER 
JSH  CLXB 

•  SET  OPER  CODE 
LUX  #XBUF 

STA  B  4.X 
RTS 

• 

*  PROCESS  WAIT  MESSAGE 


SSLM  LUX  #SSH 
JSR  XFER 
RTS 

* 

SSH  FCd  SOH , 5MPC.se, AC, NOC. IC.STX 
FCB  ETX.O 

• 

*  STUP  NAK  RESPONSE 

* 

SNR  LDA  A  REHR 

•  EXTRACT  NAK  BITS 
AND  A  #S3B 

STA  A  RERR 

*  RECOVER  HEADER 
LDX  tXBUF 

LDA  A  4.X 

*  REMOVE  NAK  BITS 
AND  A  #$47 

•  INSERT  RERR  MESSAGE 
EOK  A  RERR 

STA  A  4.X 
RTS 


phAIT  OEC  HAITC 
BEG  P4TI 

a.c 

HTS 

• 

PhI'I  LUA  A  #10 
STA  A  HAITC 
SEC 
RTS 

» 

*  SETUP  INFO  MESSAGE 

* 

SIM  LDX  #IMH 
JSR  XFER 
RTS 

• 

IMH  FCB  SOH ,  I  MFC ,  SC ,  AC  ,  NOC,  I C ,  STX  ,ETX  ,0 
* 

*  SETUP  UATA  MESSAGE  HEADER 

* 

SUMH  LUX  »OMH 
JSR  XFER 
RTS 

OMH  FCB  SOH, IMFC.SC, AC, NOC.IC.STX.O 

• 

*  SETUP  DATA  MSG  TRAILER 

* 

oUMl'  LUX  #XUAfA+l  6 
liJA  A  #ETX 


*  SNAP  SEQUENCE  CODES  (41-42) 

• 

SSC  LUX  #XBUF 
LDA  A  OLU5C 
EOR  A  #J 
STA  A  2.X 
STA  A  OLUSC 
RTS 


*  SETUP  TIMER  #1  (INTERRUPT) 

* 

SET!  LDA  A  0LDCR2 
ORA  A  #1 
STA  A  0LDCH2 
STA  A  TCP 2 

*  STORE  TIME  A  START 
LDA  A  TSTS 

LDA  A  #TI IE  TIMER  I 
STX  TIU 
STA  A  TCRI3 
RTS 

• 

•  CLEAR  TIMER  #1  (INTERRUPT) 

» 

CLRI  LUA  A  0LDCR2 
ORA  A  #1 
STA  A  0LUCR2 
STA  A  TCR2 

*  DISABLE  INTERRUPT 


1 

I 

I 

1 

J 


T 

X 12 


i 
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LUA  A  #T  I  1 1 
STA  A  TOW  I J 
HTS 

* 

*  SETUP  TIMEH  #2  (INTERRUPT) 

• 

SET2  LUA  A  #T2IE 
STA  A  0LDCW2 
LUA  B  TSTS 

*  STOWE  TIME  4  ST AWT 
STX  T2D 

STA  A  TCW2 
WTS 

*  CLEAW  TIMER  #2  < I  NTERRUPT  > 

* 

CLW2  LUA  A  #T2 II 
STA  A  0I.DCH2 
STA  A  TCW2 
WTS 

* 

*  SETUP  TIMER  #3  (INTERRUPT) 

SET 3  LUA  A  0LUCR2 

AND  A  #X  I  I  l.l  1 1  10 
STA  A  OL0CK2 
STA  A  TCN2 

*  SET  TIME  &  START 
LUA  A  TSTS 

LUA  A  #T3IE 
STX  T3D 
STA  A  TCH 1 3 
WTS 

* 

•  CLEAW  TIMER  #3  (INTERRUPT) 

* 

CI.W3  I -DA  A  OL0CW2 
ANU  A  MAX  1 1  1 1  I  1 10 
STA  A  OI.DCR2 
STA  A  TCR2 

*  UISABLE  INTERRUPT' 

I -DA  A  #T3II 

STA  A  TCH  I  3 
RTS 

* 

*  INTERRUPT  SERVICE  ROUTINE 

• 

ISEH  EOU  * 

*  TEST  TIME 
STS  I  SAVES 
LDA  A  TSTS 
BPL  ISEH I 

*  TEST  CLOCK  (TIMER  #3  w  100  MSEC) 
BIT  A  #4 

BEO  ISEW2 
LDX  T30 

*  SCAN  CLOCK  TABLE 
LUX  MTMi'B 

LUA  B  #5 


JSR  SCAl 
WTI 

*  TEST  TIMtRS 
ISER2  BIT  A  #2 

BEQ  I SEW 3 

*  HX  RETURN  VIA  VECT0H2 
JSW  FWET2 

JSK  CLW2 

wri 

ISEW3  BIT  A  #1 
BNE  1SER4 
WTI 

*  FIX  RETURN  VIA  VECTOR  #1 
ISER4  JSW  FRET I 

JSR  CLRI 
WTI 

* 

*  TEST  COMM  I NTERRUPT 
I  SERI  TST  CDMS 

BPL  ISEW5 

*  COMM  POLL 
JSR  CPOLL 
HTI 

* 

*  TEST  FDC  INTERRUPT 

• 

ISEH5  TST  PIA4CA 
BPL  ISEH IS 
JSR  FUIN 
WTI 

* 

*  TEST  CRT  INT. 

ISERIS  TST  TPS 

BMI  I SEW  10 

*  RESET  INT. 

LDA  A  TPH 
RTI 

*  TEST  HECEIVE 
ISEH 10  LDA  A  TPS 

BIT  A  #1 
BEO  ISEH 1 1 

*  SERVICE  RECEIVE 
JSR  TPREC 

RTI 

*  TEST  TRANSMIT 
I  SERI  I  BIT  A  #2 

BNE  ISEH 1 2 

*  RESET  INT. 

LUA  A  TPH 
HTI 

*  SERVICE  TRANSMIT 
I  SERI  2  JSR  TPXMT 

HTI 


*  SCAN  TIMER  TABLE 


SCAT  TST  0,X 
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BEQ  RT 
LUA  A  2.X 
SUB  A  O.X 
STA  A  2.X 
BNE  WT 
TST  I.X 
BEQ  ST 3 
DEC  I.X 
BRA  RT 
ST3  CLR  O.X 
«T  INX 
{NX 
INX 
DEC  B 
BNE  SCAT 
MTS 

* 

•  CLEAN  TIMERS 

* 

CI.TM  LDA  B  #15 
LUX  #TMTB 
CLTI  CLR  O.X 
INX 
DEC  B 
BNE  a.Ti 
RTS 

* 

*  FIX  RETURN  VECTOR  #2 

* 

FRET2  LDX  ISAVES 
LDA  A  VECT2 
LDA  B  VtCT2* I 
STA  A  6.X 
STA  B  7.X 
RTS 

• 

*  FIX  RETURN  VECTOR  #i 

* 

FRETI  LDX  ISAVES 
LDA  A  VECTJ 
LDA  B  VECT1M 
STA  A  6.X 
STA  B  7.X 
RTS 

* 

*  •• 

*  INPUT  FROM  ACIA 

* 

AO!  LDA  A  O.X 
BIT  A  #1 
BEQ  AOll 
LDA  A  I.X 
SEC 
RTS 

AOll  CI.C 
RTS 

• 

*  TEST  PORT  TRANSMIT 
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1PXMT  TST  ASP 
BEO  TPXMI 
DEC  ASP 

TPXM4  LDX  TPPTH 
CPX  rPPTE 
BEO  TPXM2 
LDA  A  O.X 
INX 

STX  TPPTR 
TST  SPC 
BEO  TPXM3 
ADD  A  #$30 
TPXM3  LDX  #TPC 
JSR  AIK) 

PTS 

•FIX  SPACE 
TPXMI  LDA  A  SPC 
BEO  TPXM4 
STA  A  ASP 
LDA  A  #$20 
BRA  T PXM3 

*  LAST  CHAR-INH  XMT  /ENB  RECV 
TPXM2  LDA  A  #rflfc 
STA  A  TPC 
LDA  A  TPH 
RTS 


TPREC  LDX  #TPC 
JSR  CKI.F 
JSR  AO I 
BCC  TPREI 
JSR  AOOi. 

*  ■*  TEST  DATA  INPUT 
TPREI  TST  INF 

BEO  TPREI 4 
JMP  TP  RE  9 

*  -R?  (RECV  BUFFER) 
TPREI 4  CMP  A  M'R 

BNE  TPRE2 
LDX  #HBUF 
STX  TPPTR 
LDX  #RENU 
STX  TPPTE 
CLR  A 
JMP  TPRE3 

*  *  UMIT  BUFFER) 
TPRE2  CMP  A  #'X 

BNE  TPRE4 
LDX  #X BUF 
STX  TPPTR 
#XEND 
TPPTE 
A 

JMP  TPRE3 

*  «U7  (FDC  BUFFER) 
1PRE4  CMP  A  »'0 


LDX 

STX 

CLR 


I 

K.  I 

I 
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BMC  TPRE5 
LUX  #f  DOT 
STX  TPPTR 
LUX  #FL)CTE 
STX  TPPTE 
clr  BIBST 
CLH  FDCA 
IDA  A  #CL£U5 
JSR  LEDOFF 
CLH  A 
JMP  TPRE3 

*  -  F?  ( Fl.AC  SUFFER) 
1PRE5  CMP  A  t'F 

BNE  TPHE6 
LUX  #FLAC 
STX  TPPTH 
I.DX  #FEND 
STX  TPPTE 
LUA  A  »\ 

JMP  TPWE3 

*  TEST  DATA  INPUT  MODE 
TPHE6  CMP  A-  IP'S 

BNE  TPRE7 

*  SET  INPUT  FUG 
CLH  INF 

INC  INF 
LUA  A  4CLEU6 
JSH  LEDON 

*  SET  POINTEHS 
LUX  #FUCF 
STX  TPPTH 

*  CLEAR  SUFFER 
IPHEIO  CLH  O.X 

INX 

CPX  #FDCFE 
BNE  TP HE  10 
a.H  CFFF 
LUX  MFDCFE 
STX  TPPTE 

*  START  INPUT 
TPRE9  LUX  TPPTH 

STA  A  O.X 

*  TEST  CANCEL  (XC) 

CMP  A  #$  I S 

BNE  TPHEI2 

*  RESTART 
CLR  INF 

LUA  A  MCLEU6 
JSH  LEDOFF  , 

an  foul- 

HTS 

TPREI2  INX 
STX  TPPTR 
CPX  TPPTE 
BNE  TPHEII 
UEX 

LUA  A  #EOT 
STA  A  O.X 
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TPREI I  CMP  A  «EOT 
BEO  TP HE 8 
RTS 

*  LAST  CHAR 
TPHE8  CLH  INF 

*  TEST  IF  CHECK  FIRE 
LUA  A  CODE 

CMP  A  t'C 
BNE  TPREI 3 
LUA  A  CODE*) 

CMP  A  (HF 
BNE  TPREI 3 

IMP  pc  err 

TPREI 3  LUA  A  #CLED6 
JSH  LEDOFF 
CI.H  FDCC 
INC  FUCC 
HTS 

*  SETUP  SPACE  COUNT 
TPRE3  STA  A  SPC 

STA  A  ASP 

*  OUTPUT  CR/I.F 
LUX  #TPC 

JSR  CRLF 

*  INH  HEC/ENB  XMIT 
-LUA  A  #X IE 

STA  A  TPC 
TPHE7  LUA  A  TPH 
RTS 

* 

*  TRANSFER  FDC  "TO"  BUFFER  TO  FDC 

* 

*  OUTPUT  TO  ACIA 

♦ 

A(X)  PSH  A 
I.DA  A  O.X 
BIT  A  #2 
PUL  A 
BEO  AOOI 
STA  A  I.X 
SEC 
RTS 

A IX) I  CLC 
HTS 

* 

*  CH/LF  ROUTINE 

• 

CRLF  LUA  A  #*[) 

JSR  AIXH. 

LUA  A  #*A 
JSR  A(X)L 
RTS 

* 

*  L(X)P  ON  OUTPUT 

* 

AIX)L  JSR  AIX) 

BCC  AOOI. 


r  /£~ 
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HI'S 

*  TRANSFER  HECD  MESSAGE  TO  CRT 

• 

XFHMSG  LUX  #HUATA 
STX  TPPTH 

*  FIND  END  OF  MESSAGE 
xkmsi  lua  a  o,x 

CMP  A  #ETX  *■ 

UtO  XHMS2 
I  NX 

BRA  XHMSI 

*  FIX  END  ALDRtSS 
XHMS2  UEX 

STX  TPPTE 
CLH  SPC 
CLP  ASP 

*  OUTPUT  CH/I.F 
LUX  #TPO 

JSR  CHLF 

*  INH  HEC/ENB  XMIT 
LUA  A  #XIE 

STA  A  TPC 
RTS 

* 

*  STHIP  STATUS 

* 

STS  I.DX  #KDATA 
LUA  B  #4 
a.R  RSHO 
STS 2  LOA  A  0,X 
AND  A  #1 
EOH  A  RSNO 
STA  A  WSrtU 
DEC  B 

une  srsi 

RTS 

STSI  INX 
ASL  MSNO 
BRA  STS2 

* 

*  RESET  STATUS 

* 

RSTS  EOU  * 

*  XFEH  TO  XMIT  BUFFER 
LDX  *XDATA*3 
I. DA  B  04 
HSTS2  4LR  A 
LSR  ASAU 
BCC  RSTS I 
INC  A 

RSTS1  AID  A  #$30 
STA  A  0,X 
DEX 
DEC  B 
BNE  RSTS 2 
RTS 


*  TRANSFER  CHAR  STRING 

*  X=SOUHCE.UEST«UESTINATION.B»CHAR  CNT 

* 

TCS  STX  SAVEX 
1CSI  LUX  SAVEX 
I.DA  A  O.X 
I  N  X 

STX  SAVEX 

* 

LDX  DE ST 
STA  A  O.X 
INX 

STX  OE ST 
DEC  U 
BNE  TCS I 
RTS 

• 

*  SETUP  PI  AS 

* 

•  PIAI-NOT  USED 
P I AS  EOU  * 

•  PIA2-DISPLAYS  &  CONTROLS 
LUX  #P I A2DA 

I.DA  A  #$36 
JSR  SETUP 

• 

*  PI  A3  -  NOT  USED 


*  PIA4  -  FDC  POP  I  1/34 

*  SETUP  B  SIDE  FOR  OUTPUT 

*  SETUP  A  SIDE  FOR  INPUT 

* 

LDX  #P I A40A 
I.DA  A  0X00  1 1  1 1 00 
JSR  SETUP 

*  ENABLE  CAI 

I.DA  A  #*0011  1101 
STA  A  PIA4CA 

* 

*  TIMER 

LUA  A  #T3 1 1 
STA  A  TCRJ3 
LUA  A  #T2!I 
STA  A  TCH2 
STA  A  OL0CR2 
LUA  A  #TI II 
STA  A  TCHJ3 

*  SET  TIMER  #3  PERIOD  (100  MSEC) 
LUX  #1  2500 

JSR  SET3 

* 

* 

*  COMM  AC I A 
LDA  A  #$43 
STA  A  COMC 
STA  A  $002 
LDA  A  #CN I E 


IK, 
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STA  A  COMC 

BNE  CLXB 

* 

RTS 

* 

* 

*  TEST  POHT  ACIA 

*  INPUT  FROM  FDC 

LDA  A  #3 

• 

STA  A  TPC 

FDIN  EQU  * 

1.0 A  A  AH  IE 

CLR  CFFF 

STA  A  TPC 

-  TEST  PASS  FLAG 

* 

LDA  A  ACLEU6 

*  DISABLE  INTERRUPTS 

JSH  LEDON 

SEI 

TST  FIBSY 

NOP 

BNE  FDI3 

HTS 

*  INITIAL  POINTER 

* 

LDX  AFDCF 

*  SETUP  PI AS 

!  STX  FPTR 

* 

1  INC  FIBSY 

SETUP  CLP  2,X  CA  DO  SELECT  I 

*  GET  AND  STORE  CHAR 

CLP  J.X  CB  00  SELECT  f 

FDI3  LUX  FPTR 

LDA  B  OS  FF  b  SIDE-OUTPUT  1 

LDA  A  PIA4DA 

STA  B  I.X  B  SIDE  OUTPUT 

AND  A  A$7F 

CLP  O.X  A  SIDE-INPUT 

*  CONVERT  SPACES  TO  0 

STA  A  2.X  CA  OUPUT  A  CONTROL  SELECT 

CMP  A  #$20 

STA  A  3.X  CB  OUTPUT  A  CONTROL  SELECT 

BNE  FDI5 

CLR  I.X  ZERO  OUTPUT 

LDA  A  AS  30 

LDA  A  O.X  RESET 

FOI 5  STA  A  O.X 

LDA  A  I.X  RESET 

CLR  INEF 

PTS 

CMP  A  #EOT 

* 

BEQ  FDI2 

•  COMM  LEO  ON 

*  STROBE  DATA  ACCEPT 

• 

JSH  STRB4A 

I.EDON  ORA  A  0T2 

INX 

STA  A  0T2 

STX  FPTR 

PTS 

CPX  AFDCFE 

w 

BEQ  FDI4 

•  COMM  LEU  OFE 

HTS 

* 

*  WRAP  UP 

I.EDOFF  UJM  A 

FDI4  INC  INEF 

AND  A  OT 2 

*  OUTPUT  FINAL  STROBE 

STA  A  0T2 

EDI  2  JSH  STRB4A 

PTS 

CLR  FIBSY 

• 

INC  FOOC 

*  CLEAP  PEC  BUFFER 

*  TEST  IF  CHECK  FIRE 

• 

LDA  A  CODE 

*  X -START  A DDR 

CMP  A  *'C 

* 

BNE  FDI6 

CLPB  CLP  O.X 

LDA  A  CODE+I 

INX 

CMP  A  #'F 

CPX  APENO 

BNE  FDI6 

BNE  CI.RB 

INC  CFFF 

PTS 

FDI 6  LDA  A  ACLED6 

» 

JSR  LEUOFF 

*  CLEAR  XMIT  BUFFER 

*  DISABLE  INT.  (CAD 

* 

TST  INEF 

*  X -START  ADOR 

BEO  Full 

• 

HTS 

CLXU  CLP  O.X 

FDI  1  LDA  A  AXOOII  1100 

INX 

STA  A  PIA4CA 

CPX  AXENU 

HTS 

I 

I 

I 


2/7 
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*  STROBE  OUTPUT-PI AAA 

★ 

STRD4A  LUA  A  #*00110101 
ST A  A  PIA4CA 
NOP 

LUA  A  *X00  III  1 01 
STA  A  PIA4CA 
NTS 

* 

*  HEAU  OUTPUT  CHAR  AND  GENERATE  PARITY 

* 

FREAD  LUA  A  O.X 
JSR  PAR 
BCS  FRDI 

«  RECOVER  DATA, EVEN 
I.DA  A  O.X 
AND  A  #S7F 
RTS 

*  TAG  TO  MAKE  EVEN 
FRDI  LUA  A  O.X 

ORA  A  #*80 
RTS 

• 

*  TEST  EVEN  PARITY 

*  C  SET-O00.  C  CLR-EVEN 

* 

PAR  CLR  B 
PAR2  LSR  A 
BCC  PARI 
INC  B 

PARI  TST  A 
BNE  PAR2 

*  CHECK  B  EVEN  OH  ODO 
LSR  B 

RTS 

* 

*  OUTPUT  TO  FDC 

* 

FDOUT  EOU  * 

I  .DA  A  #CLED5 
JSR  LEOON 

*  OUTPUT  BUSY  7 
TST  FOBSY 

BNE  FUOI 

*  1NITIA1.  BUFFER  PTR 
LUX  #FOCT 

STX  FPTT 

*  CIEAR  DATA  ACCEPT  (CBI) 

INC  FOBSY 

FDOI  I.DA  A  PIA4DB 

*  SETUP  NAIT  TIME  (-.5  SEC) 

LUX  #•> 

STX  TIM I 

*  FETCH  CHAR  AND  OUTPUT 
U)X  FPTT 

JSR  FREAD 
STA  A  PIA4QB 


*  STROBE  DATA  READY 
JSR  STRB4B 

*  WAIT  FOR  ACCEPPT 
CLR  TFI 

INC  TFI 

FIX) 3  TST  PIA4CB 
BMI  FQ02 
TST  TFI 
BEQ  FD04 
i  BRA  FD03 

I  *  data  accepted, recover  char 

!  Frx)2  LOA  A  O.X 
»  INC  POINTER 
INX 

STX  FPTT 

*  TEST  LAST  CHAR 
CMP  A  #E0T 

BcQ  FU04 
RTS 

i  *  LAST  CHAR  CLEAR  FUGS 
1  FD04  CLR  FOBSY 
CLR  FUCA 
I.DA  A  #CLEDt> 

JSR  LEDOFF 
RTS 

* 

*  STROBE  OUTPUT-PIA4B 

* 

STRB4B  LUA  A  #*00110100 
STA  A  PIA4CB 
NOP 

I.DA  A  #*00  1 1  1 1 00 
STA  A  PIA4CB 
RTS 

*  SYSTEM  VECTORS 
ORG  JFFF8 
FUB  ISEH 
FDB  ISER 
FOB  ISER 
FDB  STRT 
END 
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NAM  AGLS 

*  REVISED  7/1  B/79  1000 

*  SERIAL  COMM  GUN  ORuERS 

* 

**********  AGLSI  *********** 

*  PI A  EQUATES 

* 

*  PIAO-AUTO  SWITCHES! A). CLOCK  RATE(B> 

• 

PIAOUA  EOU  $2400 
PIAOOB  EOU  PIAOPA  +  I 
PIAOCA  EOU  PIA0DA*2 
PIAOCB  EOU  PI  A0DA*3 


*  MANUAL  C.O.  I NPlfl' 

*  A-DArA,  B-AOOH. 

PIAIOA  EOU  $2400 
PIAIDB  EOU  PIAIPA*) 

PIAICA  EOU  PI Al L)A*2 

IAICB  EOU  PlAIDA+3 

*  PIA2-QUA0  EL  ENCODER  I  MSB»  A  ,  LSB»B 

* 

PIA20A  EOU  $2404 
PIA206  EOU  PIA2UA4I 
PIA2CA  EOU  PIA2DA*2 
PIA2CB  EOU  PIA2UA*3 
* 

*  PIAJ-PANTEI.  Kl  ENUIUEKIMSH-A.LSB-B 

* 

PIA3UA  EOU  $2408 
PIA30U  EOU  Pi AJUA*I 
PIA3CA  EOU  PIAJIM*2 
PIA3C8  EOU  Pi  A3DA*3 

* 

*  PIA4-I/I0  ENCODER  OUTPUTSt A) .ENABLE  OUTPUTSIB 

★ 

PIA40A  EOU  S240C 
PIA4DB  EOU  PIA4PA+I 
PIA4CA  EOU  PIA4DA+2 
PIA4CB  EOU  PIA4DAO 

* 

•  PIAB-MUX  A/D  UATA  (A). MUX  AUL)H(d) 

* 

PIA5DA  EOU  $2410 
PIA5UB  EOU  PI  A5CA*I 
P IASCA  EOU  PIA30A+2 
PIA5C3  EOU  PI A5DA*3 

• 

*  PIA6-6L  TRIM  A/U(A»,aZ  TRIM  A/D<B> 

• 

P  I A 60  A  EOU  $2414 
PIA60J  EOU  PI A60A+I 
PIA6CA  EOU  PI  AG  DA  *2 
P IA6C3  EOU  PIA60A43 
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*  PI  A  7-0/ A  CONVEHTEH 

* 

PIA7DA  ECU  $2418 
PIA7DB  EQU  PI A7DA+I 
HIA/CA  EOU  PIA7DA+2 
PIA7CB  EOU  PI  A7  DA+J 

* 

*  P IA8»DISPLAY< 4)  ANJ  SN I TCHES! 4) , < A) 

*  MISC  INPUTS!  3)  AtC  DISP  ADDHIBI.CB) 

* 

P I  ABU A  EQU  $24 1 C 
P  I A8DB  EOU  PI  A8DA*I 
PIA8CA  EOU  PI  AdDA*2 
PIABCB  EOU  PI  ABU  A  ♦  j 


*  PIA  0  SNITCH  MASKS 

« 

LOPIM  EQU  XI 0000000 
L0P2M  EOU  XI 000000 
PLROM  EQU  XI 00000 
OLRQM  EOU  XI 0000 
POKQM  EOU  XI 000 
0 (MOM  EOU  XI 00 
A2H0M  EOU  XIO 
ELHOM  EOU  XI 

• 

*  PIA  0  STNOBE 
PNDOU  EQU  PIAOCA 


*  PIA4  (A I  INPUT  MASKS 

* 

ELTM  EQU  XI  III 
A2TM  EOU  XI  1 1 10000 

• 

*  PIA4  (B >  ENABLE  BITS 

*  O-THUE 

* 

plco  equ  xi  1 1 1 1  no 
OCGO  EOU  XII  I  I  I  101 
P AGO  EOU  XI  II  1101  I 
OPOO  EOU  XI  1 1 101 1  I 
POCO  EOU  XI 1101  1 1 1 
OOGO  EOU  XI  1011  II  I 
AZGO  EOU  XI 01  I  III  I 
EI.GO  EOU  XO  I  I  1 1  1 1  I 
• 

*  EHHGW  VOLTAGE  MASKS 
QPMA  EQU  I 

OCMA  EOU  2 
MPMA-EOU  3 
MCMA  EOU  4 
PAMA  EOU  5 

* 

*  PI  AS  ENABLES  AND  FLAG  AUDNESSES 


SAGS  EQU  P IASCA 
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cMUX  bOU  PIA5DB 
CCM5  EOU  PIA5CA 

* 

*  PIA6  ENABLES  AND  FLAG  AJOKESScS 

# 

S  AD6A  EOU  PIA6CA 
SAD6B  EOU  PIA6DB 
CCM6A  EOU  PI A6CA 
DCM6B  EOU  PIA6CB 

* 

*  PIA7  ENABLE  addresses 

• 

DAEJ.  EOU  PIA7DA 
D  AAZ  EOU  PIA7CB 
* 

•  P I  Ad  (A)  MASKS 

* 

JOM  EQU  X  1 1  1 1 
r<UC*M  EOU  XI 0000 
.-(UODmM  EOU  XI  00000 
l.POSM  EOU  XI 000000 
rtPNM  EOU  XI  0000000 
* 

*  P I A8( 3)  MASKS 

* 

JAOM  EOU  XI  I  I  II 
XHECM  EOU  XI 000000 
pHVOM  EOU  XIOOOOOOO 

•  P I  Ad  ENABLE  ADDRESSES 

* 

Pbd  EOJ  PIABDA 
A Or  EOU  PIA8CB 
DAMP  EOU  PIA8CB 
* 

*  ADI  A  EQUATES 
AD 1C  EOU  $3000 
ADIS  EOU  ADIC 
ADIT  EOU  $3001 
ACIH  EOU  ADIT 
AC2C  EOU  $3002 
AC2S  EOU  AC2C 
A02T  EQU  $3003 
AC2R  EOU  AC 2T 

(r 

*  300  BAUD 

*  DIVIDE  BY  16  ACIA 

* 

Alb  EOU  XOOIOIOOI 
R  IE  EOU  XI 000  1 001 
N  IE  EOU  X 00 00 1  001 

* 

*  M  I  SC  EQUATES 


PIOOM  EQU  $0A 00 
M.IOOM  EOU  $8A00 
HAFBAK  EOU  $85FF 
FULHAK  EQU  S8FFF 

• 

*  OFFSET  ERROR  TABLE 

* 

EOP  EOU  10 
EOC  EQU  5 
EMP  EOU  5 
EMD  EOU  5 
EPA  EQU  2 
AZLIM  EOU  1 
ELLIM  EOU  I 
OPLIM  EOU  10 
(MG  0 
RMB  I 

•  EXEC  RAM 

»SBY  rtMB  I  DEC-BIN  ROUTINE 
LSBY  RMB  I 
TMP  RMB  I 

* 

•  INTERRUPT  DRIVEN  TIMERS 

* 

*  TIMER  TABLE  (DECREMENT) 

*  I -INSIDE  LOOP  (ISER) 

*  2-OUTSIDE  LOOP  (ISER) 

*  3-AZ  CLOSING  (PANTkL) 

*  4-EL  NPN  DELAY  (J  SEC) 

*  5-XENON  DROPOUT 

*  O-AZ  UPDATE  DELAY 
TMTB  EOU  * 

1FI  RMB  I 
flMI  RMB  2 

* 

TF'2  RMB  I 
TIM2  RMB  2 
* 

I F3  RMB  I 
I  I M3  RMB  2 

*’ 

TF4  RMB  I 
TIM4  RMB  2 
* 

TF5  RMB  I 
1  I MB  RMB  2 

* 

TF6  RMB  I 
1'  I M6  RMB  2 

• 

*  FLAG  BUFFER 


* 


L.DADI  bOU  $0200 
I.0AD2  EOU  $0300 
1.0A03  EOU  $0400 
L0AU4  EOU  $0500 


BEG  EOU  * 

AZDAF  .(MB  I  AZ  D/A  INHIBIT 
bLDAF  RMB  I  EL  D/A  INHIBIT 
AZGOF  RMB  I  AUTO  AZ  SELECT 
ELCOP  RMB  I  AUTO  EL  SELECT 
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XRECF  RMB  I  XENON  RECOCNI TI ON 
I. WISH  XMB  I  LOAD  POSITION  SEI.ECT 
LOADF  RMB  I  LOAD  POSITION  ENABLED 
XTHRU  RM3  1  ALTERNATING  COMPUTATION  PASS 
NEmFO  HMB  I  Ntn  FINE  ORDcH 
rtPNS  RMB  I  NEAPON  Sn .  SELECTED 
CBSY  RMB  I  COMM.  BUSY 
AhtDr  RMB  (  L<X)P  2  HEADY 
SIG  RMJ  I  COMPUTATION  SIGN 
CKOF  HAS  I  STATUS  UPDATE  DISPLAY  LOCKOUT 
NEGF  HMB  I  A/D  DIRECT  ION  FLAG 
OTHHU  RMB  I  ALTERNATING  DISPI.AY  PASS 
DISEL  RMB  1  EL  DISPUY  LOCKOUT 
DlSAZ  RMB  I  AZ  DISPLAY  LOCKOUT 
BDF  RMB  I  BASE  DEFLECTION  FLAG 
COMERR  RMB  I  COMM.  ERROR 
nPNF  RMB  1  nEAPON  SNITCH  FLAG 
MAMN  RMB  I  MANUAL  INPUT  FLAG 
cNOF  EQU  *♦ I 
• 

A  VARIABLE  STORAGE 
* 

LOADX  RMB  2  LOAD  VALUE 
CONTEM  RMB  I  MODE  SN  WORD 
LITE  RMB  I  DISPLAY  LIGHT  MORD 
CONGO  RMB  I  MODE  SELECT  MORD 
AZTRM  RMB  I  AZ  TRIM  VALUE 
ELTRM  RMB  4  EL  TRIM  VALUE 
»  ERROR  VOLTAGE  BUFFER 
ERRBUF  EOU  * 

RMB  7 

MUXADD  RMB  I  MULTIPLEXER  ADDRESS 
NUMHEU  HMB  I  CURRENT  VALUE 
PHEVAL  HMB  I  PREVIOUS  VALUE 
EFLAG  RMB  I  GO/NO-GO  FLAG 

*  INTERRUPT  SERVICE  ROUTINE  FLAGS 
DISADR  HMB  I  DISPLAY  ADDRESS! MUX  > 

ACT  HMB  2  DISPLAY  ACTIVE  MSG  ADOR. 

Pfk  RMB  2  CRT  ACTIVE  MSG  ADDH. 

PTE  RMB  2  CRT  MSG  ENO  ADDH. 

PTHC  RMB  2  DIMM  ACTIVE  MSG  ADDR 

PTRE  RMB  2  COMM  MSG  END  ADOR 

SPC  RMB  I  ACTIVE  SPACE  CNT 

ASP  RMd  I  FIXED  SPACE  CNT 

XON  RMB  I  XENON  CONSECUTIVE  ON  COUNTER 

*  1 
AZCOM  RMB  2  AZ  D/A  OUTPUT 
fcLCOM  RMB  2  EL  D/A  OUTPUT 
* 

AZEHH  RMH  2  AZ  BINARY  ERROR 
eLERR  RMB  i  EL  BINARY  EjMUR 

* 

AZCNf  RMB  I  AZ  ERROR  IN-BOUNDS  COUNTER 
cLCNT  RMB  I  EL  ERROR  IN-BOUNDS  COUNTER 

* 

At  RMB  2  BCD  AHITH  ARG.  BUFFERS 
A2  RMH  2 
SI  RMB  2 
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S2  RMB  2 
A  I  RMB  2 
X2  RMB  2 

* 

OUTX  RMB  2  BCD  AHITH  ADOR  BUFFER 
HOI.DX  RMB  2 

TIZX  HMB  2  B IN-BCD  VALUE  BUFFER 
STORX  RMB  2  BCD  ARITH  ADDR  BUFFER 

ADOXI  RMB  2  BCD  AHITH  ARG.  BUFFERS 

SUBXI  RMB  2 

SUB X2  RMB  2 

TX  RMB  2  BCD  SUBT.  ADDR.  BUFFER 
* 

CNX  RMB  I  BIN-BCU  CONVERSION  COUNTER.' 
OLD  AX  RMB  I 
OI.DBX  RMB  I 

* 

HOLDB  RMB  J  TEMPORARY  B  STORE  — TERR 
KEEP  RMB  2  NINES  COMP  ADOR  BUFFER 

• 

SAVA  HMB  I  HORK  SPACE 
SAVB  RMB  I 
SAVEX  RMB  2 
SAVES  RMB  2 
I SAVES  HMB  2 
I  SAVEX  RMB  2 
******** 

******** 

*  DISPLAYS  BUFFER 

*  ELEVATION 

*  FIRE  ORDER 

ELFO  RMB  5  CURRENT  COMMAND 

*  ENCODEH 

ELDISP  RMB  5  ACTUAL 

*  ERROR 

ELERD  HMB  5  ERROR 


*  AZIMUTH 

*  FIRE  ORDER 

AZFO  RMB  5  CURRENT  COMMAND 

*  ENCODER 

AZDISP  HMB  5  ACTUAL 

*  ERROR 

AZERD  RMB  5  ERROR 

* 

*  ACTIVE  COMMAND  VALUES 
ELGCDS  HMB  b 

AZGCDS  RMB  5 

*  COMM  SYSTEM  MODES 

* 

*  0*  NORMAL 

*  I -BASE  DEFLECTION 

*  2-BO RE SIGHT 

*  J-BASE  DEFL.  SET 

*  4 -CLEAR  BASE  DEFL.  SET 

* 

CMODE  RMB  I 
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*  OFFSET  ERROR  KURDS 

*  ELLI  T#  OP-1 

*  QC-2 

*  0P+QO3 

*  AZLIH  MP-I 

*  MC-2 

*  MP+MC-3 

*  AP-4 
tLLIT  RMB  I 
AZUT  RMB  I 

*  MODE  SWITCH  WORD 

*  AGLS  MODE  SELECT 

*  AUTO  EL  -I 

*  AUTO  AZ  -2 

»  OUAJ  OFFSET  -3  • 

*  PAN  OFFSET  -4 
A  MODE  HMB  I 

*  LOCAL  MODE  RORD 

*  -0  NO  8.D.  PRESET 

*  -I  B.D.  PRESET 

*  -2  AUTO  UPDATE  F.O. 

LMODE  HMB  I 
******** 

******** 

*  TEMPORARY  BUFFERS 
TEMSUB  HMB  5 

T EM  BCD  HMB  5 
RESULT  HMB  b 
ADJX  HMB  b 
ELTEMP  RMB  b 
AZTEMP  RMB  b 
TRMENC  HMB  5 

*  REF  ANGLE  HOLD  BUFFER 
HHOI.D  RMB  b 

*  REF  ANGLE  ACTIVE  BUFFER 
HEF  RMB  b 

*  BASE  DEFLECTION  BUFFER 
BDBUF  RMB  5 

*  COMM  BUFFER 
CBUF  RMB  16 

*  RESTART  FLAGS  HERE 
REST  EOU  * 

* 

EBLK  RMB  I  L(X)P  2  bLOCK 
TBLK  RMB  I 

ATI  ME  RMB  I  XENON  STABILITY 
STF  HMB  I  FIRST  PASS  FLAG 
EIJ.iCI  RMB  I  LOOP  2  LOCK 
AZLKI  RMB  I 

ELLK2  RMB  I  L(X)P  3  LOCK 
AZI.K2  RMB  I 

UEL4  RMB  I  nPN  EL  START  DELAY 
DEL6  RMB  I  AZ  UPDATE  DELAY 
hASSAZ  RMB  I  AZ  CLOSING  PASS 
PASSEL  HMB  I  EL  CLOSING  PASS 
3L0  4F  RMB  I  AZ  SLOW  SPEED 
PUC.1F  RMB  I  Cli  SEARCH 


HUCCNF  RMB  I  OCR  SEARCH 
QPLP  RMB  I  QUAD  PITCH  ERROR  CNT 
OPCNT  RMB  I  OUAD  PITCH  ERROR  CNT 
ATOUP  RMB  I  AUTO  UPDATE 
tlPPASS  RMB  I  APN  SN  PASS 
END  EQJ  * 

PAGE 

* 

*  AGLS  CONTROL  PROGRAM 

* 

*  ENTER  HERE  ON  RESET 
ORG  $4600 

AGO  EQU  * 

LDS  #$OFFO 

*  INITIAL  PI AS 
JSR  PI  AS 

*  CLEAR  TIMERS 
JSR  CLTM 

*  CLEAR  FLAGS 
LDX  #BEG 
JSR  CLFG 

*  SET  DISPLAY  INTERVALS 
LDX  #2 

STX  XI  Ml 
LUX  #20 
STX  TIM2 
INC  TFI 
INC  TF2 

*  SETUP  AZ  FOR  3200 
LDX  MAZGCDS 

STX  ISAVES 
LDX  #C0NST3 
LUA  B  #b 
JSR  TCS 

* 

LDX  #AZFO 
STX  ISAVES 
LDX  4CONST3 
I.DA  B  0b 
JSR  TCS 

*  TEST  MANUAL  F.O.  INPUT 
CLR  MANIN 

LDA  A  PI  AIDA 
BIT  A  #$10 
BNE  AG  I 

*  DISABLE  ACIA  int. 

LDA  A  #N  IE 

STA  A  ACIC 
LDA  A  ACIR 
INC  MANIN 
CLI 

BRA  AG2 

*  PULL  COMM  PROC  RTS  HI 
AGI  CLI 

LDA  A  #589 
3TA  A  ACIC 
LDA  A  ACIR 

*  CLEAR  RESTART  FLAGS 
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AG2  LUX  #HEST 
JSR  CLFG 

*  CLEAR  WEAPON  FLAGS 
CLR  nPNS 

CLR  WPNF 

*  DISABLE  AUTO  UPDATE  ON  RESTART 
LUA  A  LMOUE 

AND  A  #$FD 
ST A  A  LMOUE 
CLH  ATOUP 

*  READ  CONFIG  SNITCHES 
JSR  CONRO 

*  FORM  CONFIG  WORD 
JSR  OCE 

*  REAU  AZ  AND  EL  TRIM 
AG7  JSR  HTRM 

*  SHUT  OFF  DISPLAYS 
CLH  UISAZ 

CLR  U1SEL 

*  IF  MANUAL  READ  IT 
TST  MANIN 

BEO  AG 3 I 
JSR  RMAN 

*  TEST  IF  COME  FROM  LOAD  POS. 

AG3 I  JSR  TLOAD 

TST  LOAUF 
BNE  AG  33 

*  TEST  FIRE  ORDER  UPDATE 
TST  NENFO 

BEO  AGB 

*  TEST  AUTO  UPDATE 
TST  ATOUP 

BEQ  AG 33 

*  AUTO  UPDATE  SEO. 

*  IcST  RANGE  OF  UPDATE 
JSR  THANG 

BCC  AG 34 

*  WITHIN  RANGE 
SEI 

JSR  MVCO 
CL  I 

JSR  UFO 

*  RESTART  TIMER 
CLR  TFB 

LUX  #300 
STX  TI M6 
INC  TF6 

AC34  CLH  NENFO 
BRA  AGB 

*  TEST  AUTO  MODE 
AG 33  JSR  AUTO 

BCC  AGB 

*  TEST  WEAPON  SNITCH 
I.DA  A  NPNS 

CMP  A  #1 
BNE  AGB 

*  RESTART  SYSTEM 
AGS  LUX  #REST 


JSR  CLFG 

*  UPDATE  F.O. 

JSR  UFO 

CLH  NENFO 
CLH  wPNS 
INC  WPPASS 

*  LOAD  POS.  CHANGE? 

TST  LOADF 

BEO  AGB 
INC  STF 
CLH  LOADF 

*  TEST  COMM  MODE 

*  NORMAL  ? 

AGB  CLR  BDF 

LUA  A  CMOOE 
BEO  AGJ8 

*  BORES IGHT  ? 

CMP  A  #2 
BEO  AG IB 

*  CLEAR  B.D.? 

CMP  A  #4 
BLT  AG  1 7 

*  FIX  CLEAR 
I.DA  A  LMODE 
AND  A  #$FE 
ST  A  A  LMODE 
CLR  BDF 
JSR  CLHBD 
BRA  AGIB 

*  FIX  BASE  DEF. 

AUI /  INC  BDF 

*  TEST  BU  SET 
CMP  A  #J 
BNE  AGIB 
SUB  A  #2 

ST A  A  CMODE 
LUA  A  LMOUE 
ORA  A  #1 
ST A  A  LMODE 

*  READ  A Z  ENCODER  AND  STORE 
JSR  FIXBD 

* 

*  READ  AZ  AND  EL  ENCODERS 
AGI8  INC  DISEI. 

INC  DISAZ 
JSR  HENCS 

*  TEST  XTHHU  FLAG 

*  -I  EL  COMPUTE  ,-0  A Z  COMPUTE 

* 

tst  xrmu 

BNE  AGIO 
JSR  COMPAZ 
INC  XTHHU 
BRA  AG  1 1 

• 

AGIO  JSR  COMPEL 

clr  xrmu 

*  READ  AND  STORE  ERROR  VOLTAGES 
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AGII  JSH  HAEV 

*  CHECK  OFFSETS 
JSH  CKO 

*  TEST  ShHVO  SN 
LUA  A  #SHVOM 
JSfi  TSTS8B 
8CS  AG 39 

1.0 A  A  #$  FF 
STA  A  PIA4DB 
JMP  AG2 

* 

*  LOOP  2  START 


*  SET  HU  FLAGS 
AG39  JSH  SHUF 

*  WEAPON  AZ  ENABLED? 

CLH  AZDAF 

TST  AZGOF 
BEO  AG  1 2 

*  AUTO  A Z  SELECTED 

*  TEST  STAHT  THKU  FLAG 
AG44  TST  STF 

BEO  AG 37 
JMP  AG16 

*  FIHST  TIME  THRU 

*  TEST  XENON  ON 
AG37  TST  XHECF 

BNE  AG32 
JMP  AG4 

*  ENABLE  PANTEL  A Z 
AG32  LDAA  #PAGO 

JSH  FIXENB 

*  TEST  HEADY 
TST  AHEDY 
BEO  AG4I 
JMP  AG3 

*  AZ  Ll/A  (HJTPUT-0 
AG4I  LUX  #0 

STX  A  ZOOM 

*  DISABLE  PANTEL  OFFSET 
I -DA  A  MPOGO 

JSH  FIXDIS 

»  DISABLE  RU  SEARCH  FLAGS 
a.H  HUCWF 
CLH  HUCCflF 
»  SET  HEADY 
U.H  AHEOY 
INC  AHEDY 
BHA  AG  3 

*  wEAPOty  AZ  DISABLED 

*  TEST  PANTEL  OFFSET 
AG  I  2  LUA  A  #PORQM 

JSH  rSTSrt 
BCC  AG  I J 

*  ENABLE  PANTEL  OFFSET 
LUA  A  MPOGO 

JSH  FIXENB 


*  TEST  AZ  LOCK 
TST  AZLKI 

BNE  AG  1 6 

*  ENABLE  PANTEL  AZ 
LDA  A  #PAGO 

JSH  FIXENB 

*  TEST  AZ  CLOSING 
JSR  CLAZ 

BCC  AGJ6 

*  DISABLE  PANTEL  AZ 
LDA  A  #P AGO 

JSH  FIXDIS 
INC  AZLKI 
BHA  AG  1 6 

*  NO  AUTO  WEAPON  OR  AUTO  OFFSET 

*  AZ  D/A  OUTPUT -0 
AG I  3  LUX  #0 

STX  AZCOM 
CLH  AZLKI 
BHA  AG  1 6 

*  NO  LITE  .TEST  SEARCH 
AG4  CLH  AREDY 

*  RU  SEARCH  CM? 

LDAA  HUCWF 
BEO  AG 1 4 

I-DX  #P  I OOM 
STX  AZCOM 
BRA  AG  IS 

*  RU  SEARCH  CCN? 

AGI 4  LDA  A  RUOCNF 

BEO  AG20 
LDX  #M I OOM 
STX  AZCOM 

*  ENABLE  PANTEL  OFFSET 
AGI  5  I -DA  A  #POGO 

JSH  FIXENB 

*  ENABLE  PANTEL  AZ 
LDA  A  #PAGO 

JSH  FIXENB 

*  SET  TRAY  BLOCK 
CLH  TBLK 

INC  TBLK 
BHA  AG  16 

*  DISABLE  PANTEL  AZIMUTH 
AG20  LDA  A  4PAG0 

JSH  FIXDIS 
CLH  TBLK 
INC  TBLK 
BHA  AG I 6 

*  TEST  XENON  STABILITY 
AG3  CLH  TBLK 

JSH  XSTAB 
BCS  AG  1 6 

*  SET  THAV  BLOCK 
INC  TBLK 

AGI 6  CLH  ELDAF 

*  AUTO  EL  SELECTED? 

TST  ELGOF 
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*  START  THRU  SET? 

Tsr  STF 

3NE  AG2I 

*  TEST  QUAD  PITCH  CLOSING 
CLH  EBU 

INC  EBU 
i.DA  A  #10 
STA  A  QPL P 
JSH  CLOP 
BCC  AG2I 

*  HULL  ACHIEVED 
CLP  EBU 

BKA  AG2I 

*  TEST  QUAD  OFFSET  SELECT 
AG23  LDAA  #QoRQM 

JSH  TSTSW 
DCS  AG50 
LUX  #0 
STX  ELCOM 
CLH  ELLK1 
BRA  AG2I 

*  ENABLE  QUAD  OFFSET 
AGSO  LDA  A  #QOCO 

JSH  FIXENB 

*  TEST  EL  LOCK 
TST  ELUI 

BNE  AG2I 

*  ENABLE  QUAD  PITCH 
LOA  A  #QPGO 

JSH  FIXENB 

*  TEST  EL  CLOSING 
JSH  CLEL 

BCC  AG2I 

*  DISABLE  QUAD  FITCH 
LDA  A  #QPGO 

JSH  FI  XU  IS 
INC  EIJ.KI 

*  OUTPUT  CONFIG  ENABLES 
AG2 1  I  VC  ELOAF 

INC  A/DAF 
LDA  A  CONGO 
STA  A  PIA4UB 

*  STAHT  THRU  SET? 

TST  STF 

BNE  AG23 

*  TEST  THAV  OH  El.  BLOCK 
JSH  OHBLK 

BCC  AG2S 
TST  rtPPASS 
BNE  AG3B 
CLH  wPNF 
AG38  JMP  AG7 
« 

»  L(X)P  3  STAHT 
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AG2S  CLR  STF 
fST  wPNF 
BNE  AG27 
JMP  AG7 

•SET  STAHT  THRU 
AG27  INC  STF 

* 

*  AUTO  a Z  LOOP 

• 

*  AZ  enabled? 
tst  azgof 

BNE  AG45 
JMP  AG26 

*  TEST  XENON  ON 
AG45  TST  XHECF 

BNE  AG40 
CLH  AREDY 
CLH  «PNF 

*  TEST  READY 
AG40  TST  AREDY 

BNE  AG  1 9 

*  DISABLE  PANTEL  AZ 
LDA  A  #P AGO 

JSH  FIXDIS 

*  DISABLE  WEAPON  AZ 
LDA  A  #AZGO 

JSR  FIXDIS 

*  DISABLE  WEAPON  EL 
LDA  A  #ELGO 

'  JSR  FIXDIS 
JMP  AG29 

*  ENABLE  WEAPON  AZ 
AG 1 9  LDA  A  #AZGO 

JSH  FIXENB 

*  TEST  AZ  LOCK 
TST  AZU2 
BNE  AG26 

*  ENABLE  PANTEL  AZ 
LDAA  #PAGO 

JSH  FIXENB 

*  ENABLE  PANTEL  OFFSET 
LDAA  #POGO 

JSH  FIXENB 

*  TEST  AZIMUTH  CLOSING 
CLH  SLOWF 

INC  SLOWF 
JSH  CLAZ 
BCC  AG 26 

*  STAHT  AUTO  UPDATE 
TST  DELS 

BNE  AG2B 

* 

M)A  A  LMOOE 
ORA  A  #2 
STA  A  LMOUE 
INC  ATOUP 
INC  DEL6 
BRA  AG26 


TEST  WEAPON  SW 
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* 

AG28  TST  TF6 
ONE  A C2<5 

*  DISABLE  PANTEL  AZ 
AG35  CLR  SLOMF 

i.daa  #pago 

JSR  FIXUJS 
INC  AZLK2 

*  FIX  I.MODb 
LDA  A  LMODE 
ANU  A  #SFD 
STA  A  .'.MODE 
CLH  UcLo 

•  CLH  frQ 
CLP  aTOUP 

* 

*  AUTO  sL  L(X)P 

* 

*  EL  ENABLED? 

AG2o  rST  ELCOF 

OEO  AGJO 

*  TEST  EL  LOCK 
AG43  TST  ELLK2 

BNE  AG30 

*  ENABLE  QUAD  PITCH 
LDA  A  dQPGO 

JSR  FIXENB 

*  ENABLE  QUAO  OFFSET 
ldaa  XQOCO 

JSR  FIXENB 

*  DELAY  rtEAPON  EL 
TST  JEL4 

BNE  AG54 
LDX  #|GO 
STX  TIJ44 
INC  TF4 
INC  DEL4 

* 

AG54  TST  TF4 
BNE  AGSj 

*  ENABLE  MEAPON  EL 
LDAA  #ELGO 

JSH  FIXENB 

*  TEST  EL  CLOSING 
AG53  JSH  CLEL 

BCC  AGJO 

*  DISABLE  quad  pitch 
INC  ELLK2 

A02v  ldaa  #opgo 
JSR  FIXDIS 

*  GUTP.iT  ENABLtS  AND  DRIVE 
AGJO  U'A  A  #1 

STA  A  ACDAF 
Sj  A  A  eLUAF 
LUA  a  CONGO 
STA  A  .'IA40B 
JMP  A../ 

PAGE 
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*******  **AGLS2******* 

* 

*  Fa  PM  Configuration  noru 


*  IE5T  AUTO  A2 
LDAA  #azhqm 
Jsr  rsTSN 
BCC  CXCEI 

LDA  A  #PLGO 
JSH  FIXENB 
CLH  AZGOF 
INC  AZGOF 

bha  ocej 

pantel  level 

O  LE  I  CLH  AZGOF 
EDA  A  #PLRQM 
JSR  TSTS# 

BCC  0CE2 
LDA  A  #PLGO 
JSR  FIXENB 

(UfnuAfa  OFFSET 
<><*?,  LDA  A  #PORQM 
JSR  TSTSH 
BCC  0CE3 
LDA  A  #P()GO 
•  JSR  FIXENB 

*  TEST  AUTO  El. 

»CE3  LDA  A  #ELHQM 

JSH  TSTSW  1 
BCS  0CE6 
CLR  ELGOF 

*  TEST  OUAD  LEVEL 
LDA  A  #01. Rqm 
JSR  TSTSN 

bcc  (x:E4 

l-DA  A  #QCGO 
JSR  FIXENB 
LDA  A  #QPGO 
JSR  FIXENB 

*  TEST  OUAD  OFFSET 

*  LDA  A  #OORQM 
JSR  TSTSN 

BCC  OCES 
LDA  A  #0PGO 
JSH  FIXENB 
LDA  A  #0000 
JSH  FIXENB 
0CE5  HTS 

*  enable  AUTO  EL 
0CE6  CLR  ELCOF 

INC  ELGOF 
LDAA  #0CGO 
JSR  FIXENB 
I-DAA  #QP0O 
JSR  FIXENB 
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HTS 


*  HE  AO  CONFIGURATION  SWITCH  REGISTER 

CON HO  LDA  A  PlAOOA 
STA  A  CONTEM 
COM  A 
AND  A  #*F 
STA  A  AMODE 

rts 


*  TEST  CONFIG.  SNITCH  AOHO 
-  i'-cct  ip  SH  ONlC«0  IF  OFF 


TSTSA  AND  A  CONTE  M 
dEO  TSTSI 

ax 

HTS 

rSTSl  SEC 
HTS 


*  FIX  ENABLE  WORD 


FIXENS  AND  A  CONGO 
STA  A  CONGO. 

HTS 

*  HEAD  THIM  ROUTINE 

*  AZIMUTH 

rtTRM  LDA  A  PIA6DB 
LUX  #SAU6B 
JSH  SCON 
LUX  4PIA6UB 
JSH  GET 
STA  A  AZTHM 


*  ELEVATION 
LDA  A  PIA6DA 
LUX  #S  AUOA 
JSH  SCON 
LUX  4PIA6DA 
JSH  GET 
STA  A  ELTHM 
HTS 


*  STROBE  CONrHOL  PULSEIB  HEGJ 

SCON  LDA  B  #$JE 
STA  B  0,  X 
LUA  B  #S36 
STA  B  O.X 
HTS 

• 

*  GET  4/D  DATA  ROUTINE 

*  X-DATA  HEG.  ADDRESS 

* 

GET  LDA  A  2.X 
NOR 


.  SA  i  I 


NOR 

LDA  A  O.X 
SUB  A  #S  /F 
HTS 

# 

*  HEAD  ENCODERS  H0UT1NE 

*  ELEVATION  AXIS 
HENCS  LDX  AELTEMP 

LDA  A  PIA2DB 

AND  A  #*7F  , 

JSH  STBF 
LOA  A  PIA2DA 
JSH  STBF 
LDA  B  PIA4CA 
JSH  STBF I 

* 

•  AZIMUTH  AXIS 
LDX  AAZTEMP 
LUA  A  PI  AJUB 
AND  A  fS7F 
JSH  STBF 

LDA  A  PIA3DA 
JSH  STBF 
LDA  A  PIA4DA 
JSH  STBF 2 
RTS 

* 

*  STORE  DISPLAY  BUFFER  ROUTINE 

* 

STBF  TAB 
JSH  STBF 2 
INX 

JSH  STBF  I 

INX 

HTS 

* 

*  STORE  DISPLAY  BUFFEB-I 
STBFI  AND  B  #SOF 

STA  B  O.X 
HTS 

» 

*  STORE  DISPLAY  BUFFEH-2 
STBF2  LSH  A 

I.SH  A 
LSH  A 
LSH  A 
STA  A  O.X 
HTS 

* 

*  HEAD  ANAHX5  EHHOH  VOLTAGES 

* 

HAEV  CLKA 
STA  A  MUXADD 
LDA  B 

LUX  #ERHBUF 

•  SETUP  FOR  REPEATED  TRY'S 
RAEV5  STA  A  PREVAL 
I  .DA  A  #*> 


I 

I 


] 


I 


i 

! 

k 
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STA  A  HUMMED 
»  L<X)P  ON  A/U  CHANNELS 
RAEV2  LDA  A  #$34 
STA  A  SAD5 
LDA  A  MUXADO 
STA  A  PIA5UB 

*  100  USEC  DELAY 
I  .DA  A  #16 

h  AEV4  DEC  A 
BNE  RAEV4 
LDA  A  #$JC 
STA  A  SAD5 

*  NAIT  EOC 
LDA  A  #J2 

HAEV3  DEC  A 
BNE  HAEV3 

«  MEAD  AND  STORE  DATA 
LDA  A  PIASDA 

*  TEST  EON  CONSEC.  READINGS 
CMP  A  PREVAL 

BNE  MAE VS 
DEC  NUMHED 
BNE  HAEV2 
STA  A  O.X 
INX 

LDA  A  MUXADO 
ADD  A  #510 
STA  A  MUXADO 
DEC  B 
BNE  HAEVS 

an  piasob 

NTS 

*  TEST  PI AU  SNITCHES  (B  SIDE) 

*  c  sEr  ip  sn  onic«o  if  off 

* 

TSTS8B  AND  A  PIA8DB 
BEQ  TSTBI 

a.c 

MTS 

i'STHI  SEC 
MTS 

* 

*  TEST  PI A8  SNITCHES  (A  SIDE) 

*  C  SET  IF  Sn  ONjOO  IF  OFF 

* 

TSTS8A  AND  A  PI  AH  DA 
BED  TST82 
CLC 
Mrs 

TST82  SEC 
MTS 

* 

*  SET  MU  FLAGS 

* 

SHUF  TST  MUCHP 
BNE  SMUF3 
LDA  A  #HUCNM 


JSH  T3TS8A 
BCC  SMUPI 
INC  MUCNF 

* 

SRUFl  TST  HUCCnF 
BNE  SMUF4 
LDA  A  4MUCCWM 
JSM  TSTS8A 
BCC  SHUF2 
INC  HUCCNF 
SHUF2  MTS 
SHUF3  CI.M  HUCCNF 
LDA  A  4HUCCHM 
JSH  TSTSBA 
BCC  SMUF2 
CLM  MUCNF 
a.H  HUCCNF 
INC  HUCCNF 
MTS 

SRUF4  TST  RUCNF 
BEO  SHUF 2 
CLM  HUCCNF 
RTS 

* 

*  TEST  LOAD  POSITQN  TRANSITION 

* 

TLUAD  EQU  * 

*  TEST  LOAD  POSITION 
.  LDA  A  #LPOSM 

JSH  TSTSBA 
BCC  FLO  I 

*  SN.  SET  (LP t 

*  TEST  LAST  POSITION 
TST  LPOSF 

BEO  TI.02 
MTS 

*  NENT  QE-LP 
TI.02  INC  LPOSF 

JSH  SLPOS 
BHA  TL04 

*  SN  NOT  SET  (QE> 

*  TEST  LAST  POSITION 
TLOI  TST  LPOSF 

BNE  TL03 
urs 

*  NENT  LP-OE 

*  COMM  BUSY? 

TL03  CLM  LPOSF 

TST  CBSY 
BNE  TL03 

*  MOVE  COMM  BUFF  TO  DISP 
SEI 

JSH  MVCD 
CL  I 

*  MOVE  DISP  FO  CONTROL 
JSH  UFO 

*  RESTART  EI£VATION 
fL04  CLH  «PNF 
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LDA  A  #SFF 
STA  A  HP  NS 
INC  LOADF 

*  DISABLE  QUAD  OFFSET 
I.DA  A  #0000 

JSR  FIXDIS 

*  DISABLE  HPN  ELEVATION 
LDA  A  #ELGO 

JSH  FIXDIS 
RTS 

* 

*  SET  LOAD  POSITION 

• 

SLPOS  LUX  #LOADi 
LDA  A  #LDF  I M 
JSR  TSTSh 
HOC  SLPOI 
LUX  #LOA02 

* 

LDA  A  4I.DP2M 
JSH  TSTSH 
BCC  SLPOJ 
LDX  #I.0AD4 
BfiA  SLPOJ 

* 

SLPOI  LDA  A  #LDP2M 
JSH  TSTSN 
BCC  SLPOJ 
LDX  #L()ADJ 

• 

SLPOJ  STX  LOAJX 
•FIX  CONTHOL  BUFFER 
LDX  #ELGCDS 
LDA  A  LOADX 
JSH  STBF 
LDA  A  UJADX+I 
JSH  STBF 
CLH  0,X 

•FIX  DISPLAY  BUFFER 
LDX  #ELFO 
LDA  A  LOADX 
JSH  STBF 
LDA  A  LOADX# I 
JSH  STBF 
CLH  0,X 
HIS 


•  FIX  DISABLE  ROUTINE 

* 

FIXDIS  CUM  A 
ORA  A  CONGO 
ST  A  A  CONGO 
RTS 

• 

*  TEST  OFFSET  ERRORS 

*  C  oET«OFFSEr> ALLURED 


*  C-0  OFFSET  OK 

* 

TERR  LDX  #ERRBUF 
DECS 

STA  B  HO  LOB 
BEO  TERRI 

* 

TERR2  I NX 
DEC  B 
BNE  TERR 2 
TERRI  LDA  A  O.X 
LDX  #ERRVAL 
LDA  B  HOi.DB 
BEO  TERRA 
TERRJ  I  NX 
DEC  B 
BNE  TERRJ 
TERR4  LDA  B  O.X 
TST  A 
BPL  TERRS 

* 

NEC  A 
TERRS  CBA 
BPL  TERR 5 
CLC 
RTS 

• 

TERRS  SEC 
RTS. 


EHHVAL  EOU  • 

FCB  EOP 
FCB  EOC 
FCB  EMP 
FCB  EMC 
FCB  EPA 

• 

*  CHECK  OFFSETS  AND  CONTROL  GO/NO-GO 

CKO  CLH  CKOF 
LDA  B  #5 
STA  B  SAVB 
CLR  EFUC 
CLR  AZLIT 
CLR  ELLIT 
CKO 2  I.DA  B  SAVB 

*  CALL  TEST  ERROR 
JSR  TERR 

*  SETUP  ERROR  rtOHD  FOR  DISPIAY 
BCC  CKOB 

INC  EF LAG 

*  •, 

I  .DAB  SAVB 
CMPB  #5 
BNE  CKO 4 

•  BYPASS  A/P  IF  BD  MODE 
TST  IJDF 
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BNE  CKO 4 
LUAA  44 
OHAA  AZ1.IT 
STAA  AZLIT 

* 

CKO 4  CMPfJ  #4 
BNE  CKOS 
I.OAA  #2 
OHAA  AZLIT 
STAA  AZLIT 

* 

CK05  CMPB  #3 
BNE  CK06 
LUAA  #1 
OHAA  AZLIT 
STAA  AZLIT 

* 

CK06  CMP3  #2 
BNE  CKO/ 

LUAA  #2 
OHAA  ELL  IT 
STAA  ELL  IT 

• 

CKO  7  CMPB  4.1 
BNE  U(0h 
LUAA  #1 
OHAA  ELL  IT 
STAA  ELL  IT 

* 

CKOB  JEC  SAVB 
BNE  CKO 2 
«  TEST  GO/NO-GO 
TST  EFLAG 
BNE  CKO  I 

*iIESr  UIGIT*l.  ERR  <<l  MIL) 
LDA  A  #$P 

CMP  A  AZEHD 
BNE  CKOI 

* 

CMP  A  ELEHD 
BNE  CKOI 

*  ENABLE  GO 
LDA  A  #$3E 
ST A  A  LAMP 
INC  CKOF 
HIS 

*  cNABLE  NO-GO 
CKOI  U)A  A  4IJ6 

ST  A  A  UMP 
INC  CKOP 
HTS 

*  m 

*  TEST  A Z  EHH  HANGt 

*  <0/A  POHMAT) 

* 

TAZEHH  LDX  AZeHH 
UA  B  4AZL1M 
JSH  TSTIT 
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HI'S 

* 

*  TtsT  EL  EHH  HANGE 

TELEHH  lox  elehh 
LDA  B  4ELLIM 
JSH  TSTIT 
HTS 


*  TEST  D/A  FOHMAT 

* 

fSTIT  STX  SAVA 

*  PIX  POH  SIGN 
TSr  SAVA 

BPI.  TST  I  3 
Luaa  Sava 
AND A  4S7F 
STAA  SAVA 

* 

fSTlJ  LDAA  SAVA 
AND  A  4SF 
BEO  TSTII 
SEC 
ht<; 

*  CHECK  LSB 
l'STII  LDA  A  SAVB 
CBA 
.  NOP 

BHI  TST12 

a.c 

HTS 

TST 12  SEC 
HTS 


*  COMPUTE  AZ  ERROR 

compaz  an  sig 

CLR  DISAZ 
LOX  4TEMBCD 

*  CONVERT  THIM  TO  BCD 
CLH  a 

I.DA  B  AZTHM 
BPL  a)PAZl 
INC  SIC 
NEC  B 

COPAZI  NOP 
NOP 

JSH  BINBCD 

STX  A I 
LDX  4AZTEMP 
STX  A2 

LDX  4HESULTM 
JSH  BCDADU 

*,  *OJJST  POH  HOIJ.OVEH 
LDX  4AZ0ISP 
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JSR  ADJ  — 

*  SAVE  TRIMMED  ENC.  VALUE 
LDX  »TRMENC 

STX  1 SAVES 
LDX  #AZD ISP 
LUA  a  (K) 

*JBASECDEFL.  select  ? 
i.OX  #hef 
TST  BUF 
BEO  COPAZ5 
LDX  #BDBUF 

*  SUBTRACT  REF.  OR  BD  ANGLE 
COPAZa  STX  S2 

LDX  #AZDISP 
STX  SI 

LDX  RESULT 
JSH  BCOSUB 

*  ADJUST  FOR  ROLLOVER 
LDX  #AZDISP 

JSH  ADJ 

* 

*  SUBTRACT  RESULT  FROM  GACS 

• 

LDX  4AZDISP 
STX  S2 
LDX  4AZGC0S 
STX  SI 
LDX  #RESULT 
JSH  BCDSUB 

*  ADJUST  FOR  ROLLOVER 
LDX  4AZEH0 

JSH  ADJ 

*  FIX  FOH  ♦  OR  -  32000 
CLH  SIG 

LUX  MAZEHD 
JSH  TSST32 
BCC  C0PAZ3 

*  FIX  IF  >  32000 
LDX  #AZERD 

STX  A I 
JSH  NINCOM 
LUX  #CI)NST 
STX  A2 

LDX  #HESULT»4 
JSH  BCDADD 

* 

LDX  #AZEHD 
JSR  XFEH 

• 

CLH  SIG 
INC  SIG 

*  TEST  MAGNITUDE  OF  DISPLAY  VALUE 
G0PAZ3  LDX  #AZEHD 

JSH  IcSTM 

*  FIX  SIGN  OF  DISPLAY 
BCC  C0PAZ4 

*  HLANX  SION  IF  <  I  MIL 
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I.DA  A  #SF 
BRA  C0PAZ2 
C0PAZ4  LUA  A  #1 
TST  SIG 
BtQ  C0PAZ2 
LUA  A  #2 

C0PAZ2  STA  A  AZERD 

*  CONVERT  ERROH  TO  BINARY 
LDX  4AZEHD 

JSH  BCDBIN 
STX  AZERH 
INC  DISAZ 
RTS 

CONST  FCB  6, 4, 0,0,0 
C0NST2  FCB  3. 6, 0,0,0 

* 

*  COMPUTE  ELEVATION  ERHOH 

* 

COMPEL  an  SIG 
CLR  DISEL 
LDX  #TEMBCD 

*  CON Vt RT  TRIM  TO  BCD 
CLH  A 

LDA  B  ELTHM 
BPL  OPEL  I 
INC  SIG 
NEC  B 

COP EL l  NOP 

*  NOP 

JSH  BINBCD 

*  ADD  TRIM  TO  ENCODER  HEADING 
LDX  4TEM BCD 

STX  A I 
LDX  4ELTEMP 
STX  A2 

LDX  #KtSULT*4 
JSH  BCDADD 

*  ADJUST  FOR  ROLLOVER 
LDX  MtLDISP 

JSR  ADJ 

*  SUBTRACT  RESULT  FROM  GACS 
LDX  fELDISP 

STX  S2 
U)X  4EI.GCDS 
STX  SI 
IJ)X  4RESUI.T 
JSR  BCOSUB 

*  ADJUST  FOR  ROLLOVER 
LDX  #fcT£NO 

JSR  ADJ 

*  FIX  FOH  ♦  OR  -  32000 
a.H  SIG 

LDX  MELfcHD 
JSR  re  ST  32 
BCC  UlPfcJ.J 

*  FIX  IF  >  32000 
LDX  4EJ.EHD 

SIX  Al 
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JSH  NINCOM 
LUX  ♦CONST 
SIX  A 2 

LUX  #HESULT*4 
JSH  dCDADO 

* 

IJDX  #ELERD 
JSR  XFER 

♦ 

CLH  SIG 
INC  SIG 

*  TEST  MAGNITUDE  OF  DISPLAY  VALUE 
C0PEL3  LQX  #ELEHD 

JSH  TESTM 

*  FIX  SIGN  OF  DISPLAY 
BCC  C0PEL4 

*  BLANK  SIGN  IF  <  I  MIL 
LUA  A  #$F 

BHA  C0PEL2 
C0PEL4  LDA  A  #1 
TST  SIC 
BEO  0UPEL2 
LDA  A  #2 

C0PEL2  STA  A  ELEHU 

*  CONVERT  ERHOH  TO  BINARY 
LUX  #ELERU 

JSH  BCDBIN 
STX  ELEHH 
INC  DISEL 
HTS 

* 

*  BIN AHY-BCD  CONVERSION 

*  X “ADDRESS  OF  RESULTS) 

*  A.B-  BINARY  VALUE 

* 

B1NBCU  STX  HOL0X 
STX  OJTX 
STX  STORX 
STX  Al 

* 

LUX  *\ 0000 
JSH  TIZ 
LDX  #1000 
JSH  TIZ 
LDX  #100 
JSH  TIZ 
LUX  #10 
JSH  TIZ 
LUX  OUTX 
STA  b  0,X 

*  TEST  SIGN  FLAG 
TST  SIG 

BNE  BINI 
NTS 

•  COMPLEMENT  RESULT  (MOU  04000) 
b IN  I  LDX  HO LDX 

JSH  NINCOM 
LDX  #OONST 


STX  A2 

LDX  #WESULT*4 
JSH  BCDAQU 
LUX  STORX 
JSR  XFEH 
RTS 

• 

*  TEST  NUMBER  OF  TIMES  VALUE  DIVISIBLE 

* 

TIZ  STX  nzx 
CLH  CNX 

TIZ2  STA  A  OLOAX  . 

STA  d  OLUBX 

*  TRIAL  SUBTRACT 
SUB  B  TIZX+J 
SBC  A  TIZX 

BCS  TIZI 
INC  CNX 
BRA  TIZ2 

*  FAIL  SUBTRACT 
TIZI  LDX  OUTX 

LUA  A  CNX 
STA  10,1 
INX 

STX  OUTX 
I.DAA  OIDAX 
LUA  B  OLUBX 
RTS 

* 

*  NINES  COMPLEMENT  5  DIGIT  BCU  # 

*  X-  ADDRESS  OF  BCD  MSBCBEFORE  AND  AFTER) 

* 

NINCOM  LDA  B  #4 
JSR  FI  XX 
cry  ifLCu 

*  COMPLEMENT  EACH  DIGIT 
LUA  B  #t> 

N  IN  I  LDA  A  #09 
SUB  A  0,X 
STA  A  O.X 
DEX 
DEC  B 
BNE  NINI 

*  AUD  ONE  TO  RESULT 
LUX  KEEP 

I  .DA  B  #b 
CLH  A 
SEC 

* 

NIN2  ADC  A  O.X 
JSH  JOCK 
AND  A  #SF 
STA  A  O.X 

* 

LDA  A  #0 
UEX 
DEC  B 
BNE  NIN2 


T/JT 
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*  FJX  X  REG.  POINTER 

PIXX  INX 
DEC  a 
BNE  FI  xx 
RTS 

* 

1  *7*  UIGIT  sen  values 

*  a i -address  of  VALUE  I  5sfl 

*  A2-AJ0HESS  OF  VALUE  2  MSB 

*  X-ACXDRE  SS  OF  RESULT 

ECDAOU  STX  ADOX 1 
CLR  SIG 

*  H*  A I 
l.DX  Al 
U)A  B  *4 
JSR  FI  XX 
STX  A I 

*  FIX  A2 
LUX  A2 
LOA  B  #4 
JSR  FI  XX 
STX  A2 
CLC 

‘,.§5  Ji8ST  v*tUE 

bcai  lux  a I 

LDA  A  0,X 
DEX 
STX  A I 

*  ADD  SECOND 
LUX  A2 

ADC  A  0,X 
JSR  JOCK 
UEX 

STX  A2 

*  STORE  IN  OUTPUT 
LUX  AOOXJ 

STA  A  0,X 
UEX 

STX  AQDXI 

* 

DEC  u 
BNE  BC  A I 
LUX  At 
i-UAA  0,X 
l.DX  A2 
AUCA  0,X 

JSR  JOCK  . 

BCC  BCA2 
INC  SIG 

BCA2  l.DX  ADOX  I 
STAA  0,X 
hTS 

JOCK  NOP 
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CM PA  #V 
BGT  JOCK  I 

etc 

RTS 

JOCKI  ADDA  #6 
ANUA  #$F 
SEC 
RTS 

* 

*  c 0ICIT  values 

*  si -address  of  minuend 

*  S 2- ADDRESS  OF  SUBTRAHEND 

*  X -ADDRESS  OF  RESULT 

BCDSUd  STX  SUBXI 
STX  SUBX2 

*  FIX  SUBXI 
LUAB  #4 
JSR  FI  XX 
STX  SUBXI 

*  COMPLEMENT  SUBTRAHANU 

*  TRANSFER  SUBTRAHANO 
LUX  4TEMSUB 

STX  TX 
LDAB  #5 
rxi  LUX  S2 
1J>AA  0,X 
INX 

STX  S2 

* 

lux  rx 

STAA  0,X 
INX 

stx  rx 

* 

DECB 
BNE  rxi 

* 

LDX  ITEM  SUB 
JSR  C0MP64 

*LOX°sf NUtND  ANn  FU  SIGN  °F  HESUKT 

STX  Al 
LDX  #TEMSUB 
STX  A2 
LDX  SUBXI 
JSR  BCDADD 
HTS 

* 

*  64' S  COMPLEMENT  ROUTINE 

C0MP64  STX  A I 
JSH  NINCOM 
LDX  #CONST 
STX  A2 

LDX  4RE3ULTM 
JSR  ECOAUU 
l.DX  A I 


T  1C 
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IbH  XFER 

* 

<rs 

* 

*  TEST  BCD  MAG  LIMITS  FOR  DISPLAY 

ADJUST  FOR  >  99999  &  » 

64000  ROLLOVER 

*  X-BUFFER  ADORESS 

*  C-SET  IF  BLANK  SIGN 

U  STX  ADJX 

*  SETUP  DIRECTION  SIGN 

sr  sic 

*  FIX  IF  >9999 

•HE  AOJI 

TESTM  I. DA  A  O.X 

rcs  r  »  64000 

AND  A  4SF 

.OX  #RESULT 

BEO  TSTMI 

ISk  TEST64 

LDA  A  #09 

»CC  AJJ2 

STA  A  1 ,X 

fix  »  64QC0  ROLLOVER 

STA  A  2.X 

Ul  LJX  #ktSULT 

STA  A  3.X 

iVX  A I 

STA  A  4.X 

!)X  4 CON ST 2 

BRA  TSTM3 

ilA  A2 

*  BLANK  SIGN  IF  <  1  MIL 

.!>A  ADJX 

TSTMI  LDA  B  #4 

[JAB  #4 

TSTM2  LDA  A  O.X 

UK  FI  XX 

BNE  TSTMJ 

'SK  BCDADD 

INX 

IS 

DEC  B 

flX  <  64000  VALUE 

BNE  TSTM2 

>J2  I. OX  ADJX 

SEC 

$K  XFER 

RTS 

!iS 

TSTM3  CLC 

RTS 

i'cST  IF  BCD  ARRAY  >  OR 

-  32000  <C  SET 

IF  TRUE)*  TEST  IF  BCD  ARRAY  »  OR  -  64000 
*  C  SET  IF  TRO E»C»0  IF  FALSE 

Si32  ldaa  o,x 

* 

vkA  43 

TEST64  LDA  A  O.X 

x:  rj2i 

CMP  A  #6 

iOT  T322 

BGT  T64I 

DAA  1  ,X 

BLT  T642 

Mr*  A  #2 

LDA  A  I.X 

!.T  T32I 

CMP  A  #4 

•22  SEC 

BGE  T64I 

r  5 

T642  CLC 

21  CLC 

RTS 

i  s 

T64 1  SEC 
j  RTS 

I'cST  IF  BCD  ARRAY  >0H- 

14000 

i* 

2  SET  IF  TRUE 

*  TRANSFER  FROM  BCD  ARRAY  *  RESULT*1 

■»TI  4  LDA  A  O.X 

»  ARRAY  SPECIFIED  BY  X 

MP  A  #1 

* 

i.r  rui 

XFER  STX  XI 

•jI  TI42 

LDX  #RESULT 

DA  A  1 ,X 

STX  X2 

AH  A  #4 

LDA  B  #5 

LT  TI4I 

XFEHI  LDX  X2 

42  SEC 

I.DA  A  O.X 

.  J 

INX 

4  1  CLC 

STX  X2 

.  -i 

LDX  XI 

STA  A  O.X 

INX 

777 
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STX  XI 
UtC  B 
BNE  XFERI 

RTS 

COMPOTE  BINARY  DATA  FROM  BCDI5  DIGIT)  VALUE 
X-ATORESS  OF  BJFFEWIENTRYHU/A  VAl.UE(fcXIT) 

JuBIN  INX 
I  .DA  B  #4 
ST A  B  SAVB 
CLR  MSBY 
CLR  I.SBY 

•  GOBI  LUA  A  0,1 
ST A  A  TMP 

JSR  41  OX 
INX 

DEC  SAVB 
■jNE  BCDBI 
.  DIVIDE  X2 
I.SR  m$BY 
rOR  LSBY 
<  TEST  SIGN 
i.DA  A  MSBY 
TST  SIG 
BEO  BCUB2 
ORA  A  #$B0 
ST  A  A  MSBY 

*  TEST  OVERFLOW 
>CDB2  AND  A  #S70 

dtQ  BCD33 

f 

I.DA  A  MSBY 
AND  A  #SBO 
ORA  A  #«0F 
jTA  A  MSBY 
LUA  A  #$FF 
STA  A  LSBY 
STA  A  PIABDB 
'Ci/tiJ  LUX  MSBY 
kTS 


*  CLEAR  FLAG  TABLES 
» 

.LEG  CLN  0,X 
INX 

CPX  #END 
iME  CLFG 

«rs 

ft 

*  CLEAR  BASE  OEF.  BUFFER 

* 

..LRBD  LUA  B  #5 
i.DX  4BDBUF 
.LHDBI  CLR  0,X 
INX 
DEC  B 
UNE  CLHUUI 


hts 

* 

*  READ  AND  STORE  BASE  DEFECTION 

* 

F 1X60  EOU  • 

*  SUBTRACT  3200  FROM  CU  HR  ENT  RE  ADI  I 
LDX  MfRMENC 

STX  SI 
LDX  4CONST3 
STX  S2 
LDX  #RESULT 
JSR  BCDSUB 

*  ADJUST  FOR  ROLLOVER 
LDX  #BDBUF 

JSR  ADJ 
RTS 

* 

CONST 3  FCB  3, 2, 0,0.0 

*  INITIAL  PI AS  ROUTINE 

• 

P I  AS  EOU  * 

*  PIA  0  (A)-SN  INPUTS 
CLR  PIAOCA 

CLR  PIAODA 
LDA  A  #$3E 
STA  A  PIAOCA 
LDA  A  #S3£ 

STA  A  PIAOCA 

*  PIA  0  (B)-PROG  CLOCK 
CLR  PIAOCB 

LDA  A  #SFF 
STA  A  PIAODB 
LDA  A  #S2C 
STA  A  PIAOCB 
LUA  A  #100 
STA  A  PIAODB 
LDA  A  PIAODB 
LDA  A  #S2U 
STA  A  PIAOCB 
SEI 

*  PI A I  -MANUAL  G.O.  INPUTS 
LDA  A  #$ 36 

LDX  #PIAIUA 
CLH  2.X 
CLR  3.X 
CLR  O.X 
LDA  B  #SFF 
STA  B  I ,X 
STA  A  2.X 
STA  A  3.X 
LDA  A  O.X 
I.DA  A  I.X 

*  pia  2  -elevation  encoder 

LDA  A  #SJE 
LDX  #p IA2DA 
JSR  SETUP 

*  PI  A3  -AZIMUTH  ENCODER 


J/S 


* — 
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I  .DA  A  #SJE 
LDX  #PIAJDA 
JSH  SETUP 


— — 


CLP  PIA4CA 
CLP  PIA40A 
LDA  A  #$3E 
STA  A  PIA4CA 
*  PI  A  4  -ENABLES 
I. DA  A  #4 
STA  A  PI A4Cd 
LUA  A  #SFP 
STA  A  PIA4D8 
CLP  PIA4CB 
I. DA  A  4SFF 
SI' A  A  PIA4DB 
LuA  A  #4 
STA  A  PIA4CB 


*  PI  A  a  -MUX  A/D 
a«  PIA5CA 

CLP  PIA5CB 
CLP  PIA50A 
LDA  A  #SFF 
STA  A  PIA50B 
I-OA  A  #$3C 
STA  A  PIA5CA 
I.DA  A  0$  34 
STA  A  PIA5CB 

* 

*  PIA  6  -TRIM1  A/0 
LUA  A  #S3«> 

LDX  #PIA<50A 
JSP  St TUP 


*  PIA  /  — D/A 
CLP  PIA/CA 
CLP  PIA7CB 
LDA  A  #$FF 
STA  A  PIA7UA 
STA  A  PIA70B 
LUA  A  #$JE 
STA  A  PIA7CA 
STA  A  PIA7CB 


*  PIA  8  -DISPLAY 
a.«  PUBCA 
CLP  PIABCU 
LDA  A  #$F 
STA  A  PIABDA 
LUA  A  #$IF 
STA  A  PIA8DB 
LDA  A  #53t 
STA  A  PZ  A8CA 
I.DA  A  AS  St 
ST  A  A  PI  ABCS 


*  alia  setup 

LDAA  A $4 3 
STA  A  ALIC 
STAA  AC2C 
I.DX  #AC2C 
JSP  OISXMT 
LOX  4ACIC 
LDA  A  #$49 
STA  A  O.X 
NOP 
NOP 
RTS 


*  SETUP  PI A  USING  X  AND  A  REG. 

SETUP  CLP  2.X 
CLR  3.X 
CLP  O.X 
CLP  I.X 
STA  A  2.X 
STA  A  3.X 
RTS 


*  INTERRUPT  SERVICE  ROUTINE 

*  TEST  CLOCK 
ISER  TST  PIAOCB 

BPL  ISEH6 
U)A  A  PIAODB 
STA  A  PIAODB 

*  SCAN  CLOCKS 
LDX  #TMTB 
LDA  B  #6 
JSH  SCAT 

*rlrS™!NSIUE  LnoP<2°  MSEC) 

wi  fr  I 

BEO  ISER2 
RTI 

*  SERVICE  INSIDE  LOOP 
IStP2  LDX  #2 

STX  TIM) 

INC  TFI 

*  D/A  READY? 

JSH  DAOUT 

*  TEST  XENoN  ON 
LDAA  #XRECM 
JSP  TSTSBB 
BCC  ISER7 

*„STAHT  DROPOUT  CLOCK 
CLn  rF5 
LDX  #100 
STX  TIMS 
INC  TF5 

*  TEST  ON  FOR  2S  TIMES 
INC  XON 

LDAA  XON 
CMPA  #25 
ULT  IStPB 


T/J 
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DEC  XON 
CLH  XlfECF 
INC  XHECF 

*  TEST  TIMEOUT  AFTER  OFF 
I SEN 7  CLH  XON 

TST  TF5 
BNE  ISEH8 
CLR  XHECF 

*  TEST  rtEAPON  Sw 
ISEK8  I.CAA  #HPNM 

JSH  TSTS8A 
BCC  ISER4 
CLH  rtPNF 
INC  HPNF 

*  FIX  4PN  Srt  rtOHU 
l.DA  A  HPNS 

CMP  A  #$FF 
8NE  ISEH4 
CLH  HP  NS 
INC  nPNS 

*  OUTSIDE  LOOP 

*  NO  SERVICE  IF  COMM  BUST 
ISER4  TST  CBSY 

BEO  I SEP  I 
HTI 

I  SERI  TST  TF2 
BEO  I  SERB 
HTI 

*  SERVICE  OUTSIDE  LOOP 
I  SENS  l.DX  #20 

STX  TIM2 
INC  TF2 

*  UPDATE  DISPLAY 
JSR  GUIS 

HTI 

•TEST  COMM. 


*  COMM  ROUTINE 


ISER6  TST  ACIS 
BMI  ISER3I 
JMP  ISER20 
ISER3I  CLR  CBSY 
INC  CBSY 

*  TEST  RECV  I  NT 
LUX  #ACI S 

JSR  AO I 
BCS  ISER26 
JMP  1SER32 
•TEST  CHAR  -H7 
ISER26  CMP  A  t'R 
BNE  ISER2I 

*  INITIALIZE  F.  O.  RELIEVE 
LUX  #CBUF 

STX  PTRC 


l.DX  #CBUF*I5 
STX  PTRE 
d.R  COMERH 
RTI 

*  TEST  CHAR  »T? 

ISER2I  CMP  A  #,T 

BNE  ISER22 

*  INITIALIZE  F.O.  TRANSMIT 
LUX  #ELFO 

STX  PTRC 
LDX  ML  MODE 
cn  prpu 

*  OUTPUT  STARTER 
LDX  #ACI S 

JSR  CHLF 

*  INH  RECV/ENB  XMIT 
LDX  #ACI C 

JSR  UISHEC 
HTI 

*  RECIEVED  DATA 
ISEH22  SUB  A  #$30 

BPL  ISER23 
INC  COMERH 
ISEH23  CMP  A  #9 
BLE  I SEN 24 
INC  COMERH 
ISEH24  LDX  PTRC 
CPX  #0 
BEO  ISEH29 

*  STORE  DATA 
STA  A  O.X 
CPX  PTRE 
BNE  ISER33 
TST  COMERH 
BNE  ISER29 

*  TEST  RANGE  OF  DATA 
INC  COME HR 

l.DX  #CBUF 
JSH  TEST  1 4 
BCS  ISER29 
LUX  #CBUF#5 
JSR  TEST64 
BCS  ISER29 

*  IF  AUTO  UPDATE 
CLR  COMERR 

TST  ATOUP 
BNH  ISfcW 34 

*  MOVE  FROM  COM  BUFF  TO  UISP 
JSR  MVCD 

ISEH34  INC  NErtFO 

*  PREP  SM  rtORU 
l.DA  A  #*FF 
STA  A  NPNS 

ISER29  LDX  #0 
STX  PTRC 
CLR  CBSY 
JSR  DISXMT 
RTI 


72c 


AO-AOOT  S21 


UNCLASSIFIED 


HONEYWELL  INC  HOPKINS  NN  DEFENSE  SYSTEMS  DIV  F/S  l«/6 
AUTOMATED  SUN  LATINS  SYSTEM  FOB  SELF-PROPELLED  AATILLCAT  WEAPON— CYC , 
MAT  SO  E  E  LEHTOLA.  K  A  HERZINS  OAAAOS-Tfc-C-OJA* 


I 

I 

I 


L. 

1^ 

•-  I- 

-  Lt 

las 

^  it- 

112 

1 1.8 

BB 

iil 

U£ 

MICROCOPY  RtSOLUllON  IfcST  CHAR! 

NAIIONAl  HIM  AO  slANI'AH[JS  A 
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*  TEST  STATUS  REGISTER 
1SER33  LOA  A  ACIS 

AND  A  #X0 1 1 1  0000 
BEQ  ISEH25 
INC  CUMERR 
ISEH2S  INX 
STX  PTRC 
XT! 

•TRANSNIT  INTERRUPT? 
ISER32  Lx* A  A  ACIS 
BIT  A  02 
BNE  ISERI9 
LUA  A  ACIH 
hi  2 

•TEST  RECIEVE  ERROR 
1  SERI  9  TST  COME  HR 
ticO  ISeH27 
LuA  A  i'X 
1SEH2U  1.0 X  #ACIS 
JSR  AIK) 

CLH  CBSY 
LUX  00 
STX  PTRC 

*  INH  XMIT/ENB  HECV 
LOX  #ACI  C 

JSR  DISXMT 
HTI 

*  TRANSMIT  CHARACTER 
ISEH27  I.OX  PTRC 

CPX  #0 
BEO  ISEH28 
i.DA  A  O.X 
A 00  A  #$30 
CPX  PTHE 
BEO  IS Eh 2d 
INX 

STX  PTRC 
LOX  #ACIS 
JSR  AIK) 

HTI 


*  TEST  CRT 

I SER20  TST  CBSY 
BEQ  I5ER30 

*  HEStr  INT 
LOA  A  AC2R 
HTI 

ISER30  TST  AC2S 
BMI  ISEHI6 
RTI 

*  TEST  RECV.  INT. 
I  SERI  6  LOX  #AC2S 

JSR  AO  I 
BCC  ISERI7 

*  -0  ? 

CMPA  #'0 


.SAi 

BNE  ISER9 
LOX  #ELFt) 

STX  PTR 
LDX  #LMODE*l 
STX  PTE 
LOA  A  #5 
BRA  ISERIO 

*  «F  ? 

ISER9  CMPAM'F 
BEQ  ISERII 
RTI 

ISERII  LDX  #BEG 
STX  PTR 
LOX  #ENOF 
STX  PTE 
LOAA  *1 

ISERIO  STAA  SPC 
STAA  ASP 

*  OUTPUT  CR/LF 
U3X  #AC2S 
JSR  CHLF 

*  INH  REC/ENB  XM1T 
LOX  #AC2S 

JSR  OISHEC 
RTI 

* 

*  TEST  XMIT.  INT. 

I  SERI  7  LOAA  AC2S 

BITA  #2 
BNE  ISERI2 
LOAA  AC2R 
RTI 

*  CHECK  SPACE  COUNT 
I  SERI  2  TST  ASP 

BNE  ISERI3 
LOAA  SPC 
STAA  ASP 
U)AA  4*20 
BRA  ISERI4 

*  PROCESS  CHAR 
1  SERI  3  DEC  ASP 

LOX  PTR 
CPX  PTE 
BEO  ISERI5 
LOAA  O.X 
INX 

STX  PTR 
BPL  ISEHI8 
CLHA 

ISERIB  AOOA  #$30 

*  OUTPUT  CHAR 

I  SERI 4  LDX  #AC2S 
JSR  AIK) 

RTI 

*  rtRAP  UP  XMIT 

I  SERI S  LOX  #AC2C 
JSR  DISXMT 
RTI 
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*  MOVE  FkOM  COMM  BUFFER  TO  DISPLAY 
«  EL(S> ,AZ<5) ,HEF<b> .CMOUE 

• 

M VCD  EOU  * 

*  TEST  LOAD  POS. 

Li)  A  A  MLPOSM 
JSR  rSTSBA 

BCS  MV 3 
LDX  *EI.FO 
STX  I SAVES 
LUX  MCBUF 

* 

LDA  B  #5 

jsr  res 

* 

MV3  LUX  MAZFO 
STX  ISAVES 
LUX  #CBUF*5 
LUA  B  #3 

* 

JSH  TCS 

« 

•  MOVE  HEF  ANGLE 
LUX  MHHOLD 

STX  ISAVES 
LDX  MCBUF+IO 
LDA  a  #b 
JSR  res 
LUA  A  CUUF  +  I  5 
STA  A  CMOUE 

* 

HTS 

• 

*  TRANSFER  CHAR  STRING 

*  ISAVES-DEST.X-SOURCE.B-CNT 

* 

TCS  STX  ISAVEX 
1CSI  LOX  ISAVEX 
LOA  A  0,X 

I  MV 

STX  ISAVEX 

• 

LUX  ISAVES 
STA  A  0,X 
INX 

STX  ISAVES 

ate  b 
BNE  resi 
RTS 

* 

•  DISABLE  REC  INT  ROUTINE 
DISHEC  I.DAA  MXIE 

ST AA  0,X 
HTS 

* 

*  DISABLE  XMIT  INT  ROUTINE 
UISXMr  LUA A  #RIE 


STAA  0,X 
LUAA  I  ,X 
RTS 

* 

*  OUTPUT  U/A  ROUTINE 

* 

*  ELEVATION 
UAOUT  rsr  ELUAF 

BEQ  DAOUTI 
LUX  ELUOM 
STX  PIA7UA 
LOX  MPIA7CA 
JSH  US CON 

• 

*  AZIMUTH 
DAOUTI  TST  AZUAF 

BEO  UA0UT4 
LDX  AZCOM 
STX  PI  A/DA 
LUX  MPIA7CB 
JSH  USCON 
UAOUT 4  HTS 

• 

•  INVERTED  STROBE  CONTROL  PULSE 

* 

USCON  LUA  B  #S36 
STA  U  O.X 
NOP 

LUA  B  #$3E 
STA  B  O.X 
RTS 

* 

*  UPDATE  DISPLAY  ROUTINE 

*  ELEVATION 

* 

UUIS  EOU  * 

*  TEST  DISPLAY  INHIBIT 

*  0-NO  DISPLAY 
TST  DI5EI. 

BEO  UOISI 

CLH  UISAUR 
LOX  #EI.FO 
STX  ACT 
LUAB  ELLIT 
STA  B  LITE 
JSH  DISIT 

*  AZIMUTH 

*  TEST  DISPLAY  INHIBIT 

*  O-NO  DISPLAY 

iioisi  tst  disaz 

BEO  JUIS2 
LUA  A  MS  I U 
STA  A  DISADH 
LUX  MAZFO 
STX  ACT 
LDAB  AZLIT 
STA  B  LITE 

jsr  uisrr 


I 

I 

I 


i 

4 

I 

I 

1 

I 

I 

I 


I 
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0DIS2  TST  DTHHU 
BEO  U0IS3 
CLH  DTHHU 


UDI S3  INC  DTHHU 
RTS 

* 

*  ROUTINE  TO  DISPLAY  IT 

* 

DISIT  I.DA  A  DISADR 
ST  AA  PIA8DB 
LDX  ACT 
JSH  TFS 
BCS  UISIT3 
l.DA  A  O.X 
DISIT3  INX 
STX  ACT 
STA  A  PIA8DA 
LDX  »PIA8CA 
JSH  USCON 
INC  DISADH 
LDA  A  DISADH 
AND  A  #SOF 
CMPA  #SQF 
BNE  DISIT 

*  OUTPUT  SPECIAL  DISPLAYS 
TST  CKOF 

BNE  DISIT2 

hts 

DISIT2  I  .DA  A  DISADH 
ST  AA  PIA8D8 
LDX  4C00E 
CLH  A 

LDA  8  LITE 
BED  OISITI 
JSH  FI  XX 
LD AA  O.X 

OISITI  STAA  PIA80A 
LDX  #PIA8CA 
JSH  uscon 
HTS 

• 

•  TEST  FLASH  SEO  (DISPLAYS) 

* 

TFS  EOU  * 

*  TEST  ADDH  RANGE 
AND  A  #*0F 

CMP  A  *4 
BGT  IV  S3 

* 

TST  ATOUP 
BNE  TFS3 
TST  NEnFO 
BNE  TFSI 
TFS3  CLC 
HTS 
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TFSI  TST  DTHHU 
BEO  TFSJ 
LDA  A  #SF 
SEC 
HTS 

*  DISPLAY  CODE  TABLE 

CODE  EOU  *-l 

FCB  5 
FCB  2 
FCB  SF 
FCB  4 
FCB  6 
FCB  I 
FCB  $F 

*****»*»**AGLS4  *********** 

* 

*  EXEC  SUBROUTINES 

*  MULTIPLY  MSBY/LSBY  X  10*TMP 

MIOX  LDA  A  MS3Y 

LDA  B  LSBY 
CLC 
ASL  A 
ASL  B 
JSH  CKC 
ASL  A 
ASL  B 
JSH  CKC 
ADD  B  LSBY 
JSH  CKC 
ASL  A 
ASL  B 
JSH  CKC 
ADO  B  TMP 
JSH  CKC 
STA  A  MSBY 
STA  B  LSBY 
HTS 

*  CHECK  C  BIT  AND  FIX 

CKC  BCS  CKC I 

UTS 

CKC  I  INC  A 
CLC 
HTS 

* 

*  SCAN  TIMERS  ROUTINE 

* 

SCAT  TST  O.X 
BEO  HT 
LDA  A  2.X 
SUB  A  O.X 
STA  A  2.X 
BNE  HT 
TST  I.X 
BEO  ST 3 
DEC  I.X 
BRA  HT 

ST 3  CLH  O.X 

WT  INX 
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I  NX 
INX 
DEC  a 
BNE  SCAT 
NTS 

*  CLEAN  TINEAS  ROUTINE 
CLTM  UA  B  «I8 

I. DX  #TMTB 

clti  aw  o,x 

INX 
DEC  B 
BNE  CLTI 
ATS 

*  INPUT  FROM  AC I A 
AOI  LDAA  0,X 

BITA  #1 
BEO  AO  1 1 
LUAA  I  ,X 
SEC 

NTS 

AOI I  CLC 
RTS 

*  OUTPUT  TO  ACIA 
A(X)  PSHA 

LUAA  O.X 
BITA  #2 
PULA 
BEO  AOOI 
STAA  I  ,X 
SEC 
RTS 

A  (XI I  CLC 
RTS 

*  CH/LF  ROUTINE 
CHLF  LUAA  #SD 

JSH  A(X)L 
LUAA  #$A 
JSH  ACXIL 
RTS 

*  L(X)P  ON  OUTPUT 
A(X)L  JSR  A 00 

BCC  AOOL 
RTS 

*************  AG  LS5*********** 

* 

*  TEST  AZ  CLOSING 

* 

*  TEST  PASS  FLAG 
CLAZ  TST  PASSAZ 

BNE  CLAZ I 

*  TEST  AZERR 
LUA  A  AZERR 
AND  A  #$B0 
BEO  CLAZ6 

*  AZERR  «  0 
LUX  *15 
STX  f!M3 


LUAA  #1 
STAA  PASSAZ 
LDX  4FULBAK 
TST  SLOrtF 
BEO  CLAZ8 
LDX  4HAFBAK 
CLAZB  STX  AZCOM 
CLC 
RTS 

*  PASS  -  I 

CLAZ  I  LUAA  PASSAZ 
DECA 

BNE  CLAZ3 

*  TEST  FOR  FIRST  NULL 
LDX  fFUl.BAK 

TST  SLORF 
BEO  CLAZ9 
LDX  4HAFBAK 
CLAZ9  STX  AZCOM 
TST  AZERR 
BPL  CLAZ4 
CLC 
RTS 

*  NULL  ACHIEVED 
CLAZ4  LUX  4HAFBAK 

STX  AZCOM 
INC  TF3 
INC  PASSAZ 

*  a.c 

RTS 

*  PASS  -  2 
CLAZ3  DECA 

BNE  CLAZ 2 

*  TEST  TIMER 
TST  TF3 
BEQ  CLAZ6 

a.c 

RTS 

*  DISABLE  U/A 
CI.AZ6  LDX  #0 

STX  AZCOM 
LUA  A  #3 
STA  A  PASSAZ 

ac 

RTS 

*  PASS- 3 
CLAZ2  DEC  A 

BNE  CLAZ6  , 

JSR  AZNUIJ. 

BCS  CLAZ 7 
LUAA  AZERR 
LIMB  AZERR* I 
JSR  TMAGA 
STAA  AZCOM 
STAB  AZCOM*l 

ac 

RTS 

CLAZ7  LDX  #0 
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STX  AZCOM 
CLR  FASSAZ 
SEC 
HIS 

* 

*  TEST  AZ  NULL* 

• 

*  AZERH  TEST 
AZNUI.L  JSR  TAZERR 

BCS  AZNI 
INC  AZCNT 
LDAA  AZCNT 
CMP  A  #25 
BI.E  AZN2 
DEC  AZCNT 
SEC 
HI  S 

AZNI  CLP  AZCNT 
AZN2  ac 
RTS 

* 

*  TEST  EL  CLOZINC 

* 

*  TEST  ELERH 
CLEL  LUX  ELERH 
STX  ELCUM 
CPX  #0 
bNE  CLEL I 

*RTEST  NUU. 

CLEL  I  JSH  ELNULL 
BCS  CLEL 2 
HTS 

CLEL2  LUX  #0 
STX  EI.COM 
SEC 
HTS 


*  TEST  EL  NULL 

* 

*  ELERH  TEST 
ELNULL  JSR  TELEHH 

BCS  ELN1 
INC  ELCNT 
ID  A  A  ELCNT 
CMPA  #25 
BLE  ELN2 
DEC  ELCNT 
SEC 
RTS 

ELNJ  CLR  ELCNT 
cLN2  CLC 
RTS 

• 

•  TEST  QUAD  PITCH  NUU. 


JSH  TERHO 
BCS  CL0P2 
INC  OPCNT 
LDA  A  OPCNT 
CMP  A  OPLP 
BNE  CLOP 3 
DEC  OPCNT 
SEC 
RTS 

-  * 

CL0P2  CLR  OPCNT 
* 

CLQP3  CLC 

RTS  , 

*  TEST  &  FIX  A/D  MAGNITUDE 
TMAGA  CLR  NEGF 

TSTA 

BPL  TMAG3 
INC  NEGF 
TMAG3  ANUA  #$F 
TST  SLONF 
BNE  TMAGI 

*  FULL  SPEED 
CMPA  #2 
BGE  TMAG2 
BSH  MBX 
RTS 

* 

• TMAG2  LDAA  #SOF 
TST  NEGF 
BEO  T4AG4 
OR AA  #$80 
TMAG4  LDAB  #SFF 
RTS 

*  HALF  SPEED 
TMAGI  TSTA 

BNE  TMAC5 
CMPB  #S6F 
BHI  TMAG5 
BSH  M8X 
RTS 

# 

TMAG5  LDAA  #5 
TST  NEGF 
BEO  TMAG6 
OH  AA  #$80 
TMAG6  LDAB  #$FF 
HTS 

• 

*  MULTIPLY  X  8 

* 

MBX  LUX  #3 
MB  I  ASI.B 
ROLA 
DEX 

BNE  MB  I 
TST  NEGF 
BEO  MB 2 
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ORAA  #*00 

MH2  RTS 

* 

* 

•  OR  BLOCK  FLAGS 

• 

OHBLK  TST  TBLK 
BNE  ORBI 
TST  EBI.K 
BNE  (MB I 
CLC 
RTS 

ORB  I  SEC 
Hi'S 


*  TEST  XENON  STABILITY 

XSTA8  TST  XRECF 

BEO  XSI 
INC  XTIME 
LOAA  XTIME 
CMPA  #70 
Bl.S  XS2 
DEC  XTIME 
SEC 
NTS  * 

* 

XSI  CLR  XTIME 

XS2  CLC 
NT S 

* 

•  UPDATE  EIRE  ORDER 

• 

UFO  SEI 
STS  SAVES 

*  TEST  LOAD  POS. 

LDA  A  #LPOSM 
JSR  TSTS8A 

80S  OF  03 
I.DS  #EI.FO-l 
LDX  #ELDCUS 
LDA  B  #t> 

UFO  I  PUL  A 
STA  A  0,X 
INX 
DEC  B 
BNE  UFOI 

UFOS  LDS  #A2FO-l 
LDX  #A20CDS 
LDA  d  #t> 

uF02  PUL  A  <* 

STA  A  0,X 
INX 
DEC  B 
BNE  UF02 
LDS  SAVES 

•  MOVE  REF  ANGLE 


LDX  #REF 
STX  ISAVES 
LDX  #RHOLD 
LDA  B  n 
JSR  TCS 


•  TEST  AUTO  MODE 

* 

AUTO  LDA  A  CONGO 
COM  A 

AND  A  #*11000000 

BNE  AUTO  I 

CLC 

RTS 

AUTOI  SEC 
RTS 

*  TEST  QUAD  PITCH  ERROR 

* 

TERRO  LDA  A  ERRBUF 
BPL  TERQI 
NEG  A 

TEROI  CMP  A  #QPLIM 
BPL  TERQ2 
CLC 
RTS 

TER02  SEC 
RTS 

* 

*  READ  MANUAL  INPUT 

• 

RMAN  EQU  * 

*  TEST  IF  NEN  VALUE 
LDX  #CBUF 

CLR  B 

RMN2  JSR  RTHN 
CMP  A  O.X 
BNE  RMNI 

INX 

CMP  B  #10 
BNE  RMN2 
RTS 

*  UPDATE  BUFFER 
RMNI  LDX  #C8UF 

CLR  U 

RMN3  JSR  RTHM 
STA  A  O.X 

INX 

CMP  B  #10 
BNE  RMN3 

*  FIX  REF  ANGLE  <«0> 
LDA  B  #6 

CLR  A 

RMN6  STA  A  O.X 
INX 
DEC  B 
BNE  RMN6 
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*  TEST  MANGE  OF  DATA 
CLH  COME  RH 

INC  UtMEMM 
LUX  4CBUF 
JSfl  TEST  1 4 
DCS  HMN4 
*  LUX  #CBUF*5 
JSH  TEST64 
3CS  MMN4 

*  IF  AUTO  UPUATE 
a.K  CO  ME  MR 

TST  ATOUt* 
bEQ  MMNS 
INC  NEHFO 
MTS 

*  MOVE  FROM  COMM  To  UlSP  BUFFER 
HMNS  SEI 

JSH  MV CD 
CL  I 

INC  NEHFO 

*  PREP  SN  A  OR  I) 

LUA  A  #*FF 

ST  A  A  HP  NS 
HMN4  MTS 

* 

*  REAU  THUMBHHEELS 

*  B-PASS  COUNT 

» 

Wl'HM  EOU  * 

*  TEST  PASS 


TST 

d 

BNE 

HTH3 

LDA 

A  #7 

STA 

A  PI  A 1  OB 

* 

RTHJ 

CMP  B  #4 

BEO 

HTHI 

CMP 

B  #V 

8NE 

HTH2 

• 

hTHI 

INC  U 

CLR 

A 

RTS 

*  CUUF-SUBTRAHEND 
LUX  #CBUF-*5 

3TX  S2 

*  ANShER«RESULT 
I.DX  4RESULT 

*  SUBTRACT 
JSR  BCUSUB 

*  FIX  HOU.OVER 
LUX  HTEMBCO 
JSR  AUJ 

*  TEST  RANGE  OF  RESULT  *-400 
LUX  4TEMBC0 

LUA  A  0,X 
CMP  A  #6 
BEQ  TRAG3 

* 

TST  O.X 
BNE  TRAG2 
TST  (,X 
BNE  TRAG2 
LUA  A  2.X 
CMP  A  #3 
BUT  TKAG2 
SEC 
RTS 

• 

TRAG3  LUA  A  I ,X 
CMP  A  #3 
BLT  THAG2 
I. DA  A  2.X 
CMP  A  #6 
BLT  TRAG2 
SEC 
RTS 

* 

TRAG2  CI.C 
RTS 

*  INTERRUPT  VECTORS 
ORG  SsFFB 
HUB  ISER 
FOB  AGO 
FOB  ISER 
FUB  AGO 
ENU 


H 1X2  LUA  A  Pi  At  UA 
AND  A  4S0F 
INC  B 

UEC  PI  At  Utt 
RTS 


*  TEST  MANGE  OF  NEH  F.O. 

*  C-SET.  NEH  HlTHIN  ♦-  40  MILS 

*  C»CLR .  OUTSIDE  RANGE 


.RANG  EOU  • 

*  AZFO  «  MINUEND 
LUX  4AZF0 
STX  SI 


T27 


END 


DATE 

FILMED 


DTIC 


